home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / sources.arc / DANG_SRC.LZH / ROOMREC1.C < prev    next >
Encoding:
C/C++ Source or Header  |  1993-10-27  |  77.6 KB  |  3,231 lines
  1. /* this is the first module of room rec. it
  2. inits rooms 1-100
  3.  
  4.  
  5. */
  6. #define CL 1
  7. #define CR 2
  8. #define CF 3
  9. #define ML 4
  10. #define MR 5
  11. #define MF 6
  12. #define FL 7
  13. #define FR 8
  14. #define FF 9
  15. #define EMPTY 0
  16.  
  17.  
  18. extern struct field_data
  19.     {
  20.     int Field1,
  21.         Field2,
  22.         Field3,
  23.         Field4,
  24.         Field5,
  25.         Field6;
  26.     };
  27.  
  28. extern struct pic_data
  29.    {
  30.     struct field_data N,
  31.                       S,
  32.                       E,
  33.                       W;
  34.   
  35.    };
  36.  
  37. extern struct pic_data roomrec[250];  /* start at 1.... */
  38.  
  39. /***/
  40. set_up1()
  41. {
  42. /* first define which ways you can go in each room. n,s,e,w, 0 means
  43.   its a wall */
  44.  
  45. /* now define the templates needed when facing a dir in a room */
  46.  
  47.  
  48. /**************************/
  49.                                 /* Room 1 */
  50. roomrec[1].N.Field1 = CF; 
  51. roomrec[1].N.Field2 = CF;
  52. roomrec[1].N.Field3 = CF;
  53. roomrec[1].N.Field4 = CF;
  54. roomrec[1].N.Field5 = CF;
  55. roomrec[1].N.Field6 = CF;
  56.  
  57. roomrec[1].S.Field1 = MF; 
  58. roomrec[1].S.Field2 = ML;
  59. roomrec[1].S.Field3 = FL;
  60. roomrec[1].S.Field4 = FR;
  61. roomrec[1].S.Field5 = MR;
  62. roomrec[1].S.Field6 = CR;
  63.  
  64. roomrec[1].E.Field1 = CL; 
  65. roomrec[1].E.Field2 = ML;
  66. roomrec[1].E.Field3 = FL;
  67. roomrec[1].E.Field4 = FR;
  68. roomrec[1].E.Field5 = MR;
  69. roomrec[1].E.Field6 = MF;
  70.  
  71. roomrec[1].W.Field1 = CF; 
  72. roomrec[1].W.Field2 = CF;
  73. roomrec[1].W.Field3 = CF;
  74. roomrec[1].W.Field4 = CF;
  75. roomrec[1].W.Field5 = CF;
  76. roomrec[1].W.Field6 = CF;
  77.  
  78. /******************************/
  79.                                  /* room 2 */
  80. roomrec[2].N.Field1 = CF; 
  81. roomrec[2].N.Field2 = CF;
  82. roomrec[2].N.Field3 = CF;
  83. roomrec[2].N.Field4 = CF;
  84. roomrec[2].N.Field5 = CF;
  85. roomrec[2].N.Field6 = CF;
  86.  
  87. roomrec[2].S.Field1 = CF; 
  88. roomrec[2].S.Field2 = CF;
  89. roomrec[2].S.Field3 = CF;
  90. roomrec[2].S.Field4 = CF;
  91. roomrec[2].S.Field5 = CF;
  92. roomrec[2].S.Field6 = CF;
  93.  
  94. roomrec[2].E.Field1 = CL; 
  95. roomrec[2].E.Field2 = ML;
  96. roomrec[2].E.Field3 = FL;
  97. roomrec[2].E.Field4 = FR;
  98. roomrec[2].E.Field5 = MR;
  99. roomrec[2].E.Field6 = CR;
  100.  
  101. roomrec[2].W.Field1 = CL; 
  102. roomrec[2].W.Field2 = FF;
  103. roomrec[2].W.Field3 = FF;
  104. roomrec[2].W.Field4 = FF;
  105. roomrec[2].W.Field5 = MR;
  106. roomrec[2].W.Field6 = CR;
  107.  
  108.  
  109. /******************************/
  110.                                /* room 3 */
  111.  
  112. roomrec[3].N.Field1 = CF; 
  113. roomrec[3].N.Field2 = CF;
  114. roomrec[3].N.Field3 = CF;
  115. roomrec[3].N.Field4 = CF;
  116. roomrec[3].N.Field5 = CF;
  117. roomrec[3].N.Field6 = CF;
  118.  
  119. roomrec[3].S.Field1 = CF; 
  120. roomrec[3].S.Field2 = CF;
  121. roomrec[3].S.Field3 = CF;
  122. roomrec[3].S.Field4 = CF;
  123. roomrec[3].S.Field5 = CF;
  124. roomrec[3].S.Field6 = CF;
  125.  
  126. roomrec[3].E.Field1 = CL; 
  127. roomrec[3].E.Field2 = ML;
  128. roomrec[3].E.Field3 = FL;
  129. roomrec[3].E.Field4 = FR;
  130. roomrec[3].E.Field5 = MR;
  131. roomrec[3].E.Field6 = CR;
  132.  
  133. roomrec[3].W.Field1 = CL; 
  134. roomrec[3].W.Field2 = ML;
  135. roomrec[3].W.Field3 = EMPTY;
  136. roomrec[3].W.Field4 = FR;
  137. roomrec[3].W.Field5 = MR;
  138. roomrec[3].W.Field6 = CR;
  139.  
  140.  
  141. /***************************/
  142.                             /* Room 4 */
  143. roomrec[4].N.Field1 = CF; 
  144. roomrec[4].N.Field2 = CF;
  145. roomrec[4].N.Field3 = CF;
  146. roomrec[4].N.Field4 = CF;
  147. roomrec[4].N.Field5 = CF;
  148. roomrec[4].N.Field6 = CF;
  149.  
  150. roomrec[4].S.Field1 = CF; 
  151. roomrec[4].S.Field2 = CF;
  152. roomrec[4].S.Field3 = CF;
  153. roomrec[4].S.Field4 = CF;
  154. roomrec[4].S.Field5 = CF;
  155. roomrec[4].S.Field6 = CF;
  156.  
  157. roomrec[4].E.Field1 = CL; 
  158. roomrec[4].E.Field2 = ML;
  159. roomrec[4].E.Field3 = FL;
  160. roomrec[4].E.Field4 = EMPTY;
  161. roomrec[4].E.Field5 = MR;
  162. roomrec[4].E.Field6 = CR;
  163.  
  164. roomrec[4].W.Field1 = CL; 
  165. roomrec[4].W.Field2 = ML;
  166. roomrec[4].W.Field3 = FL;
  167. roomrec[4].W.Field4 = FR;
  168. roomrec[4].W.Field5 = MR;
  169. roomrec[4].W.Field6 = CR;
  170.  
  171. /****************************/
  172.                              /* room 5 */
  173. roomrec[5].N.Field1 = CF; 
  174. roomrec[5].N.Field2 = CF;
  175. roomrec[5].N.Field3 = CF;
  176. roomrec[5].N.Field4 = CF;
  177. roomrec[5].N.Field5 = CF;
  178. roomrec[5].N.Field6 = CF;
  179.  
  180. roomrec[5].S.Field1 = CF; 
  181. roomrec[5].S.Field2 = CF;
  182. roomrec[5].S.Field3 = CF;
  183. roomrec[5].S.Field4 = CF;
  184. roomrec[5].S.Field5 = CF;
  185. roomrec[5].S.Field6 = CF;
  186.  
  187. roomrec[5].E.Field1 = CL; 
  188. roomrec[5].E.Field2 = ML;
  189. roomrec[5].E.Field3 = FL;
  190. roomrec[5].E.Field4 = FR;
  191. roomrec[5].E.Field5 = FF;
  192. roomrec[5].E.Field6 = CR;
  193.  
  194. roomrec[5].W.Field1 = CL; 
  195. roomrec[5].W.Field2 = ML;
  196. roomrec[5].W.Field3 = FL;
  197. roomrec[5].W.Field4 = FR;
  198. roomrec[5].W.Field5 = MR;
  199. roomrec[5].W.Field6 = CR;
  200.  
  201. /**************************/  
  202.  
  203.                              /* Room : 6 */
  204. roomrec[6].N.Field1 = CF; 
  205. roomrec[6].N.Field2 = CF;
  206. roomrec[6].N.Field3 = CF;
  207. roomrec[6].N.Field4 = CF;
  208. roomrec[6].N.Field5 = CF;
  209. roomrec[6].N.Field6 = CF;
  210.  
  211. roomrec[6].S.Field1 = MF; 
  212. roomrec[6].S.Field2 = ML;
  213. roomrec[6].S.Field3 = FL;
  214. roomrec[6].S.Field4 = EMPTY;
  215. roomrec[6].S.Field5 = MR;
  216. roomrec[6].S.Field6 = MF;
  217.  
  218. roomrec[6].E.Field1 = CL; 
  219. roomrec[6].E.Field2 = ML;
  220. roomrec[6].E.Field3 = FL;
  221. roomrec[6].E.Field4 = FR;
  222. roomrec[6].E.Field5 = MR;
  223. roomrec[6].E.Field6 = MF;
  224.  
  225. roomrec[6].W.Field1 = MF; 
  226. roomrec[6].W.Field2 = ML;
  227. roomrec[6].W.Field3 = FL;
  228. roomrec[6].W.Field4 = FR;
  229. roomrec[6].W.Field5 = MR;
  230. roomrec[6].W.Field6 = CR;
  231.  
  232. /**************************/
  233. /**************************/  
  234.  
  235.                              /* Room : 7 */
  236. roomrec[7].N.Field1 = CF; 
  237. roomrec[7].N.Field2 = CF;
  238. roomrec[7].N.Field3 = CF;
  239. roomrec[7].N.Field4 = CF;
  240. roomrec[7].N.Field5 = CF;
  241. roomrec[7].N.Field6 = CF;
  242.  
  243. roomrec[7].S.Field1 = CF; 
  244. roomrec[7].S.Field2 = CF;
  245. roomrec[7].S.Field3 = CF;
  246. roomrec[7].S.Field4 = CF;
  247. roomrec[7].S.Field5 = CF;
  248. roomrec[7].S.Field6 = CF;
  249.  
  250. roomrec[7].E.Field1 = CL; 
  251. roomrec[7].E.Field2 = ML;
  252. roomrec[7].E.Field3 = FL;
  253. roomrec[7].E.Field4 = EMPTY;
  254. roomrec[7].E.Field5 = MR;
  255. roomrec[7].E.Field6 = CR;
  256.  
  257. roomrec[7].W.Field1 = CL; 
  258. roomrec[7].W.Field2 = FF;
  259. roomrec[7].W.Field3 = FL;
  260. roomrec[7].W.Field4 = FR;
  261. roomrec[7].W.Field5 = MR;
  262. roomrec[7].W.Field6 = CR;
  263.  
  264. /**************************/
  265.  
  266. /**************************/  
  267.  
  268.                              /* Room : 8 */
  269. roomrec[8].N.Field1 = CF; 
  270. roomrec[8].N.Field2 = CF;
  271. roomrec[8].N.Field3 = CF;
  272. roomrec[8].N.Field4 = CF;
  273. roomrec[8].N.Field5 = CF;
  274. roomrec[8].N.Field6 = CF;
  275.  
  276. roomrec[8].S.Field1 = CF; 
  277. roomrec[8].S.Field2 = CF;
  278. roomrec[8].S.Field3 = CF;
  279. roomrec[8].S.Field4 = CF;
  280. roomrec[8].S.Field5 = CF;
  281. roomrec[8].S.Field6 = CF;
  282.  
  283. roomrec[8].E.Field1 = CL; 
  284. roomrec[8].E.Field2 = ML;
  285. roomrec[8].E.Field3 = FL;
  286. roomrec[8].E.Field4 = FR;
  287. roomrec[8].E.Field5 = FF;
  288. roomrec[8].E.Field6 = CR;
  289.  
  290. roomrec[8].W.Field1 = CL; 
  291. roomrec[8].W.Field2 = ML;
  292. roomrec[8].W.Field3 = EMPTY;
  293. roomrec[8].W.Field4 = FR;
  294. roomrec[8].W.Field5 = MR;
  295. roomrec[8].W.Field6 = CR;
  296.  
  297.  
  298. /**************************/  
  299.  
  300.                              /* Room : 9 */
  301. roomrec[9].N.Field1 = CF; 
  302. roomrec[9].N.Field2 = CF;
  303. roomrec[9].N.Field3 = CF;
  304. roomrec[9].N.Field4 = CF;
  305. roomrec[9].N.Field5 = CF;
  306. roomrec[9].N.Field6 = CF;
  307.  
  308. roomrec[9].S.Field1 = MF; 
  309. roomrec[9].S.Field2 = ML;
  310. roomrec[9].S.Field3 = EMPTY;
  311. roomrec[9].S.Field4 = FR;
  312. roomrec[9].S.Field5 = MR;
  313. roomrec[9].S.Field6 = MF;
  314.  
  315. roomrec[9].E.Field1 = CL; 
  316. roomrec[9].E.Field2 = ML;
  317. roomrec[9].E.Field3 = FL;
  318. roomrec[9].E.Field4 = FR;
  319. roomrec[9].E.Field5 = MR;
  320. roomrec[9].E.Field6 = MF;
  321.  
  322. roomrec[9].W.Field1 = MF; 
  323. roomrec[9].W.Field2 = ML;
  324. roomrec[9].W.Field3 = FL;
  325. roomrec[9].W.Field4 = FR;
  326. roomrec[9].W.Field5 = MR;
  327. roomrec[9].W.Field6 = CR;
  328. /**************************/  /**************************/  
  329.  
  330.                              /* Room : 10 */
  331. roomrec[10].N.Field1 = CF; 
  332. roomrec[10].N.Field2 = CF;
  333. roomrec[10].N.Field3 = CF;
  334. roomrec[10].N.Field4 = CF;
  335. roomrec[10].N.Field5 = CF;
  336. roomrec[10].N.Field6 = CF;
  337.  
  338. roomrec[10].S.Field1 = CF; 
  339. roomrec[10].S.Field2 = CF;
  340. roomrec[10].S.Field3 = CF;
  341. roomrec[10].S.Field4 = CF;
  342. roomrec[10].S.Field5 = CF;
  343. roomrec[10].S.Field6 = CF;
  344.  
  345. roomrec[10].E.Field1 = CL; 
  346. roomrec[10].E.Field2 = ML;
  347. roomrec[10].E.Field3 = FL;
  348. roomrec[10].E.Field4 = EMPTY;
  349. roomrec[10].E.Field5 = MR;
  350. roomrec[10].E.Field6 = CR;
  351.  
  352. roomrec[10].W.Field1 = CL; 
  353. roomrec[10].W.Field2 = FF;
  354. roomrec[10].W.Field3 = FL;
  355. roomrec[10].W.Field4 = FR;
  356. roomrec[10].W.Field5 = MR;
  357. roomrec[10].W.Field6 = CR;
  358.  
  359. /**************************/
  360.  
  361. /**************************/  
  362.  
  363.                              /* Room : 11 */
  364. roomrec[11].N.Field1 = CF; 
  365. roomrec[11].N.Field2 = CF;
  366. roomrec[11].N.Field3 = CF;
  367. roomrec[11].N.Field4 = CF;
  368. roomrec[11].N.Field5 = CF;
  369. roomrec[11].N.Field6 = CF;
  370.  
  371. roomrec[11].S.Field1 = CF; 
  372. roomrec[11].S.Field2 = CF;
  373. roomrec[11].S.Field3 = CF;
  374. roomrec[11].S.Field4 = CF;
  375. roomrec[11].S.Field5 = CF;
  376. roomrec[11].S.Field6 = CF;
  377.  
  378. roomrec[11].E.Field1 = CL; 
  379. roomrec[11].E.Field2 = ML;
  380. roomrec[11].E.Field3 = FL;
  381. roomrec[11].E.Field4 = FR;
  382. roomrec[11].E.Field5 = FF;
  383. roomrec[11].E.Field6 = CR;
  384.  
  385. roomrec[11].W.Field1 = CL; 
  386. roomrec[11].W.Field2 = ML;
  387. roomrec[11].W.Field3 = EMPTY;
  388. roomrec[11].W.Field4 = FR;
  389. roomrec[11].W.Field5 = MR;
  390. roomrec[11].W.Field6 = CR;
  391.  
  392.  
  393. /**************************/  
  394.  
  395.                              /* Room : 12 */
  396. roomrec[12].N.Field1 = CF; 
  397. roomrec[12].N.Field2 = CF;
  398. roomrec[12].N.Field3 = CF;
  399. roomrec[12].N.Field4 = CF;
  400. roomrec[12].N.Field5 = CF;
  401. roomrec[12].N.Field6 = CF;
  402.  
  403. roomrec[12].S.Field1 = MF; 
  404. roomrec[12].S.Field2 = ML;
  405. roomrec[12].S.Field3 = EMPTY;
  406. roomrec[12].S.Field4 = EMPTY;
  407. roomrec[12].S.Field5 = MR;
  408. roomrec[12].S.Field6 = MF;
  409.  
  410. roomrec[12].E.Field1 = CL; 
  411. roomrec[12].E.Field2 = ML;
  412. roomrec[12].E.Field3 = FL;
  413. roomrec[12].E.Field4 = FR;
  414. roomrec[12].E.Field5 = MR;
  415. roomrec[12].E.Field6 = MF;
  416.  
  417. roomrec[12].W.Field1 = MF; 
  418. roomrec[12].W.Field2 = ML;
  419. roomrec[12].W.Field3 = FL;
  420. roomrec[12].W.Field4 = FR;
  421. roomrec[12].W.Field5 = MR;
  422. roomrec[12].W.Field6 = CR;
  423.  
  424. /**************************/
  425.  /**************************/  
  426.  
  427.                              /* Room : 13 */
  428. roomrec[13].N.Field1 = CF; 
  429. roomrec[13].N.Field2 = CF;
  430. roomrec[13].N.Field3 = CF;
  431. roomrec[13].N.Field4 = CF;
  432. roomrec[13].N.Field5 = CF;
  433. roomrec[13].N.Field6 = CF;
  434.  
  435. roomrec[13].S.Field1 = CF; 
  436. roomrec[13].S.Field2 = CF;
  437. roomrec[13].S.Field3 = CF;
  438. roomrec[13].S.Field4 = CF;
  439. roomrec[13].S.Field5 = CF;
  440. roomrec[13].S.Field6 = CF;
  441.  
  442. roomrec[13].E.Field1 = CL; 
  443. roomrec[13].E.Field2 = ML;
  444. roomrec[13].E.Field3 = FL;
  445. roomrec[13].E.Field4 = EMPTY;
  446. roomrec[13].E.Field5 = MR;
  447. roomrec[13].E.Field6 = CR;
  448.  
  449. roomrec[13].W.Field1 = CL; 
  450. roomrec[13].W.Field2 = FF;
  451. roomrec[13].W.Field3 = FL;
  452. roomrec[13].W.Field4 = FR;
  453. roomrec[13].W.Field5 = MR;
  454. roomrec[13].W.Field6 = CR;
  455.  
  456. /**************************/
  457.  
  458. /**************************/  
  459.  
  460.                              /* Room : 14 */
  461. roomrec[14].N.Field1 = CF; 
  462. roomrec[14].N.Field2 = CF;
  463. roomrec[14].N.Field3 = CF;
  464. roomrec[14].N.Field4 = CF;
  465. roomrec[14].N.Field5 = CF;
  466. roomrec[14].N.Field6 = CF;
  467.  
  468. roomrec[14].S.Field1 = CF; 
  469. roomrec[14].S.Field2 = CF;
  470. roomrec[14].S.Field3 = CF;
  471. roomrec[14].S.Field4 = CF;
  472. roomrec[14].S.Field5 = CF;
  473. roomrec[14].S.Field6 = CF;
  474.  
  475. roomrec[14].E.Field1 = CL; 
  476. roomrec[14].E.Field2 = ML;
  477. roomrec[14].E.Field3 = FL;
  478. roomrec[14].E.Field4 = FR;
  479. roomrec[14].E.Field5 = FF;
  480. roomrec[14].E.Field6 = CR;
  481.  
  482. roomrec[14].W.Field1 = CL; 
  483. roomrec[14].W.Field2 = ML;
  484. roomrec[14].W.Field3 = EMPTY;
  485. roomrec[14].W.Field4 = FR;
  486. roomrec[14].W.Field5 = MR;
  487. roomrec[14].W.Field6 = CR;
  488.  
  489.  
  490. /**************************/  
  491. /**************************/  
  492.  
  493.                              /* Room : 15 */
  494. roomrec[15].N.Field1 = CF; 
  495. roomrec[15].N.Field2 = CF;
  496. roomrec[15].N.Field3 = CF;
  497. roomrec[15].N.Field4 = CF;
  498. roomrec[15].N.Field5 = CF;
  499. roomrec[15].N.Field6 = CF;
  500.  
  501. roomrec[15].S.Field1 = MF; 
  502. roomrec[15].S.Field2 = ML;
  503. roomrec[15].S.Field3 = FL;
  504. roomrec[15].S.Field4 = EMPTY;
  505. roomrec[15].S.Field5 = MR;
  506. roomrec[15].S.Field6 = MF;
  507.  
  508. roomrec[15].E.Field1 = CL; 
  509. roomrec[15].E.Field2 = ML;
  510. roomrec[15].E.Field3 = FL;
  511. roomrec[15].E.Field4 = EMPTY;
  512. roomrec[15].E.Field5 = MR;
  513. roomrec[15].E.Field6 = MF;
  514.  
  515. roomrec[15].W.Field1 = MF; 
  516. roomrec[15].W.Field2 = ML;
  517. roomrec[15].W.Field3 = FL;
  518. roomrec[15].W.Field4 = FR;
  519. roomrec[15].W.Field5 = MR;
  520. roomrec[15].W.Field6 = CR;
  521.  
  522.  
  523. /**************************/  
  524. /**************************/  
  525.  
  526.                              /* Room : 16 */
  527. roomrec[16].N.Field1 = CF; 
  528. roomrec[16].N.Field2 = CF;
  529. roomrec[16].N.Field3 = CF;
  530. roomrec[16].N.Field4 = CF;
  531. roomrec[16].N.Field5 = CF;
  532. roomrec[16].N.Field6 = CF;
  533.  
  534. roomrec[16].S.Field1 = CF; 
  535. roomrec[16].S.Field2 = CF;
  536. roomrec[16].S.Field3 = CF;
  537. roomrec[16].S.Field4 = CF;
  538. roomrec[16].S.Field5 = CF;
  539. roomrec[16].S.Field6 = CF;
  540.  
  541. roomrec[16].E.Field1 = CL; 
  542. roomrec[16].E.Field2 = ML;
  543. roomrec[16].E.Field3 = FF;
  544. roomrec[16].E.Field4 = FF;
  545. roomrec[16].E.Field5 = EMPTY;
  546. roomrec[16].E.Field6 = CR;
  547.  
  548. roomrec[16].W.Field1 = CL; 
  549. roomrec[16].W.Field2 = FF;
  550. roomrec[16].W.Field3 = FL;
  551. roomrec[16].W.Field4 = FR;
  552. roomrec[16].W.Field5 = MR;
  553. roomrec[16].W.Field6 = CR;
  554.  
  555.  
  556. /**************************/  
  557.  
  558.                              /* Room : 17 */
  559. roomrec[17].N.Field1 = CF; 
  560. roomrec[17].N.Field2 = CF;
  561. roomrec[17].N.Field3 = CF;
  562. roomrec[17].N.Field4 = CF;
  563. roomrec[17].N.Field5 = CF;
  564. roomrec[17].N.Field6 = CF;
  565.  
  566. roomrec[17].S.Field1 = CL; 
  567. roomrec[17].S.Field2 = FF;
  568. roomrec[17].S.Field3 = FF;
  569. roomrec[17].S.Field4 = FF;
  570. roomrec[17].S.Field5 = MR;
  571. roomrec[17].S.Field6 = MF;
  572.  
  573. roomrec[17].E.Field1 = CF; 
  574. roomrec[17].E.Field2 = CF;
  575. roomrec[17].E.Field3 = CF;
  576. roomrec[17].E.Field4 = CF;
  577. roomrec[17].E.Field5 = CF;
  578. roomrec[17].E.Field6 = CF;
  579.  
  580. roomrec[17].W.Field1 = MF; 
  581. roomrec[17].W.Field2 = ML;
  582. roomrec[17].W.Field3 = EMPTY;
  583. roomrec[17].W.Field4 = FR;
  584. roomrec[17].W.Field5 = MR;
  585. roomrec[17].W.Field6 = CR;
  586.  
  587. /**************************/  
  588.  
  589.                              /* Room : 18 */
  590. roomrec[18].N.Field1 = CL; 
  591. roomrec[18].N.Field2 = ML;
  592. roomrec[18].N.Field3 = FF;
  593. roomrec[18].N.Field4 = FF;
  594. roomrec[18].N.Field5 = EMPTY;
  595. roomrec[18].N.Field6 = CR;
  596.  
  597. roomrec[18].S.Field1 = CL; 
  598. roomrec[18].S.Field2 = ML;
  599. roomrec[18].S.Field3 = FL;
  600. roomrec[18].S.Field4 = FR;
  601. roomrec[18].S.Field5 = MR;
  602. roomrec[18].S.Field6 = CR;
  603.  
  604. roomrec[18].E.Field1 = CF; 
  605. roomrec[18].E.Field2 = CF;
  606. roomrec[18].E.Field3 = CF;
  607. roomrec[18].E.Field4 = CF;
  608. roomrec[18].E.Field5 = CF;
  609. roomrec[18].E.Field6 = CF;
  610.  
  611. roomrec[18].W.Field1 = CF; 
  612. roomrec[18].W.Field2 = CF;
  613. roomrec[18].W.Field3 = CF;
  614. roomrec[18].W.Field4 = CF;
  615. roomrec[18].W.Field5 = CF;
  616. roomrec[18].W.Field6 = CF;
  617. /**************************/  
  618.  
  619.                              /* Room : 19 */
  620. roomrec[19].N.Field1 = CL; 
  621. roomrec[19].N.Field2 = FF;
  622. roomrec[19].N.Field3 = FF;
  623. roomrec[19].N.Field4 = FF;
  624. roomrec[19].N.Field5 = FF;
  625. roomrec[19].N.Field6 = CR;
  626.  
  627. roomrec[19].S.Field1 = CL; 
  628. roomrec[19].S.Field2 = ML;
  629. roomrec[19].S.Field3 = FF;
  630. roomrec[19].S.Field4 = FF;
  631. roomrec[19].S.Field5 = EMPTY;
  632. roomrec[19].S.Field6 = CR;
  633.  
  634. roomrec[19].E.Field1 = CF; 
  635. roomrec[19].E.Field2 = CF;
  636. roomrec[19].E.Field3 = CF;
  637. roomrec[19].E.Field4 = CF;
  638. roomrec[19].E.Field5 = CF;
  639. roomrec[19].E.Field6 = CF;
  640.  
  641. roomrec[19].W.Field1 = CF; 
  642. roomrec[19].W.Field2 = CF;
  643. roomrec[19].W.Field3 = CF;
  644. roomrec[19].W.Field4 = CF;
  645. roomrec[19].W.Field5 = CF;
  646. roomrec[19].W.Field6 = CF;
  647. /**************************/  
  648.  
  649.                              /* Room : 20 */
  650. roomrec[20].N.Field1 = CL; 
  651. roomrec[20].N.Field2 = FF;
  652. roomrec[20].N.Field3 = FF;
  653. roomrec[20].N.Field4 = FF;
  654. roomrec[20].N.Field5 = FF;
  655. roomrec[20].N.Field6 = CR;
  656.  
  657. roomrec[20].S.Field1 = CL; 
  658. roomrec[20].S.Field2 = FF;
  659. roomrec[20].S.Field3 = FL;
  660. roomrec[20].S.Field4 = EMPTY;
  661. roomrec[20].S.Field5 = MR;
  662. roomrec[20].S.Field6 = CR;
  663.  
  664. roomrec[20].E.Field1 = CF; 
  665. roomrec[20].E.Field2 = CF;
  666. roomrec[20].E.Field3 = CF;
  667. roomrec[20].E.Field4 = CF;
  668. roomrec[20].E.Field5 = CF;
  669. roomrec[20].E.Field6 = CF;
  670.  
  671. roomrec[20].W.Field1 = CF; 
  672. roomrec[20].W.Field2 = CF;
  673. roomrec[20].W.Field3 = CF;
  674. roomrec[20].W.Field4 = CF;
  675. roomrec[20].W.Field5 = CF;
  676. roomrec[20].W.Field6 = CF;
  677. /**************************/  
  678.  
  679.                              /* Room : 21 */
  680. roomrec[21].N.Field1 = CL; 
  681. roomrec[21].N.Field2 = FF;
  682. roomrec[21].N.Field3 = FF;
  683. roomrec[21].N.Field4 = FF;
  684. roomrec[21].N.Field5 = FF;
  685. roomrec[21].N.Field6 = CR;
  686.  
  687. roomrec[21].S.Field1 = CL; 
  688. roomrec[21].S.Field2 = FF;
  689. roomrec[21].S.Field3 = FL;
  690. roomrec[21].S.Field4 = FR;
  691. roomrec[21].S.Field5 = FF;
  692. roomrec[21].S.Field6 = CR;
  693.  
  694. roomrec[21].E.Field1 = CF; 
  695. roomrec[21].E.Field2 = CF;
  696. roomrec[21].E.Field3 = CF;
  697. roomrec[21].E.Field4 = CF;
  698. roomrec[21].E.Field5 = CF;
  699. roomrec[21].E.Field6 = CF;
  700.  
  701. roomrec[21].W.Field1 = CF; 
  702. roomrec[21].W.Field2 = CF;
  703. roomrec[21].W.Field3 = CF;
  704. roomrec[21].W.Field4 = CF;
  705. roomrec[21].W.Field5 = CF;
  706. roomrec[21].W.Field6 = CF;
  707. /**************************/  
  708.  
  709.                              /* Room : 22 */
  710. roomrec[22].N.Field1 = CL; 
  711. roomrec[22].N.Field2 = FF;
  712. roomrec[22].N.Field3 = FF;
  713. roomrec[22].N.Field4 = FF;
  714. roomrec[22].N.Field5 = FF;
  715. roomrec[22].N.Field6 = CR;
  716.  
  717. roomrec[22].S.Field1 = CL; 
  718. roomrec[22].S.Field2 = ML;
  719. roomrec[22].S.Field3 = FF;
  720. roomrec[22].S.Field4 = FF;
  721. roomrec[22].S.Field5 = EMPTY;
  722. roomrec[22].S.Field6 = CR;
  723.  
  724. roomrec[22].E.Field1 = CF; 
  725. roomrec[22].E.Field2 = CF;
  726. roomrec[22].E.Field3 = CF;
  727. roomrec[22].E.Field4 = CF;
  728. roomrec[22].E.Field5 = CF;
  729. roomrec[22].E.Field6 = CF;
  730.  
  731. roomrec[22].W.Field1 = CF; 
  732. roomrec[22].W.Field2 = CF;
  733. roomrec[22].W.Field3 = CF;
  734. roomrec[22].W.Field4 = CF;
  735. roomrec[22].W.Field5 = CF;
  736. roomrec[22].W.Field6 = CF;
  737.  
  738.  
  739. /**************************/  
  740.  
  741.                              /* Room : 23 */
  742. roomrec[23].N.Field1 = CL; 
  743. roomrec[23].N.Field2 = FF;
  744. roomrec[23].N.Field3 = FF;
  745. roomrec[23].N.Field4 = FF;
  746. roomrec[23].N.Field5 = MR;
  747. roomrec[23].N.Field6 = MF;
  748.  
  749. roomrec[23].S.Field1 = CF; 
  750. roomrec[23].S.Field2 = CF;
  751. roomrec[23].S.Field3 = CF;
  752. roomrec[23].S.Field4 = CF;
  753. roomrec[23].S.Field5 = CF;
  754. roomrec[23].S.Field6 = CF;
  755.  
  756. roomrec[23].E.Field1 = MF; 
  757. roomrec[23].E.Field2 = ML;
  758. roomrec[23].E.Field3 = FL;
  759. roomrec[23].E.Field4 = FR;
  760. roomrec[23].E.Field5 = MR;
  761. roomrec[23].E.Field6 = CR;
  762.  
  763. roomrec[23].W.Field1 = CF; 
  764. roomrec[23].W.Field2 = CF;
  765. roomrec[23].W.Field3 = CF;
  766. roomrec[23].W.Field4 = CF;
  767. roomrec[23].W.Field5 = CF;
  768. roomrec[23].W.Field6 = CF;
  769. /**************************/  
  770.  
  771.                              /* Room : 24 */
  772. roomrec[24].N.Field1 = CF; 
  773. roomrec[24].N.Field2 = CF;
  774. roomrec[24].N.Field3 = CF;
  775. roomrec[24].N.Field4 = CF;
  776. roomrec[24].N.Field5 = CF;
  777. roomrec[24].N.Field6 = CF;
  778.  
  779. roomrec[24].S.Field1 = CF; 
  780. roomrec[24].S.Field2 = CF;
  781. roomrec[24].S.Field3 = CF;
  782. roomrec[24].S.Field4 = CF;
  783. roomrec[24].S.Field5 = CF;
  784. roomrec[24].S.Field6 = CF;
  785.  
  786. roomrec[24].E.Field1 = CL; 
  787. roomrec[24].E.Field2 = ML;
  788. roomrec[24].E.Field3 = FL;
  789. roomrec[24].E.Field4 = FR;
  790. roomrec[24].E.Field5 = FF;
  791. roomrec[24].E.Field6 = CR;
  792.  
  793. roomrec[24].W.Field1 = CL; 
  794. roomrec[24].W.Field2 = ML;
  795. roomrec[24].W.Field3 = FF;
  796. roomrec[24].W.Field4 = FF;
  797. roomrec[24].W.Field5 = EMPTY;
  798. roomrec[24].W.Field6 = CR;
  799. /**************************/  
  800.  
  801.                              /* Room : 25 */
  802. roomrec[25].N.Field1 = CF; 
  803. roomrec[25].N.Field2 = CF;
  804. roomrec[25].N.Field3 = CF;
  805. roomrec[25].N.Field4 = CF;
  806. roomrec[25].N.Field5 = CF;
  807. roomrec[25].N.Field6 = CF;
  808.  
  809. roomrec[25].S.Field1 = MF; 
  810. roomrec[25].S.Field2 = ML;
  811. roomrec[25].S.Field3 = FL;
  812. roomrec[25].S.Field4 = EMPTY;
  813. roomrec[25].S.Field5 = MR;
  814. roomrec[25].S.Field6 = MF;
  815.  
  816. roomrec[25].E.Field1 = CL; 
  817. roomrec[25].E.Field2 = ML;
  818. roomrec[25].E.Field3 = FL;
  819. roomrec[25].E.Field4 = FR;
  820. roomrec[25].E.Field5 = MR;
  821. roomrec[25].E.Field6 = MF;
  822.  
  823. roomrec[25].W.Field1 = MF; 
  824. roomrec[25].W.Field2 = ML;
  825. roomrec[25].W.Field3 = FL;
  826. roomrec[25].W.Field4 = EMPTY;
  827. roomrec[25].W.Field5 = MR;
  828. roomrec[25].W.Field6 = CR;
  829.  
  830.  
  831.  
  832. /**************************/
  833.                                 /* Room 26 */
  834. roomrec[26].N.Field1 = CF; 
  835. roomrec[26].N.Field2 = CF;
  836. roomrec[26].N.Field3 = CF;
  837. roomrec[26].N.Field4 = CF;
  838. roomrec[26].N.Field5 = CF;
  839. roomrec[26].N.Field6 = CF;
  840.  
  841. roomrec[26].S.Field1 = CF; 
  842. roomrec[26].S.Field2 = CF;
  843. roomrec[26].S.Field3 = CF;
  844. roomrec[26].S.Field4 = CF;
  845. roomrec[26].S.Field5 = CF;
  846. roomrec[26].S.Field6 = CF;
  847.  
  848. roomrec[26].E.Field1 = CL; 
  849. roomrec[26].E.Field2 = ML;
  850. roomrec[26].E.Field3 = FL;
  851. roomrec[26].E.Field4 = FR;
  852. roomrec[26].E.Field5 = MR;
  853. roomrec[26].E.Field6 = CR;
  854.  
  855. roomrec[26].W.Field1 = CL; 
  856. roomrec[26].W.Field2 = FF;
  857. roomrec[26].W.Field3 = FL;
  858. roomrec[26].W.Field4 = FR;
  859. roomrec[26].W.Field5 = MR;
  860. roomrec[26].W.Field6 = CR;
  861.  
  862. /******************************/
  863.                                  /* room 27 */
  864. roomrec[27].N.Field1 = CF; 
  865. roomrec[27].N.Field2 = CF;
  866. roomrec[27].N.Field3 = CF;
  867. roomrec[27].N.Field4 = CF;
  868. roomrec[27].N.Field5 = CF;
  869. roomrec[27].N.Field6 = CF;
  870.  
  871. roomrec[27].S.Field1 = CF; 
  872. roomrec[27].S.Field2 = CF;
  873. roomrec[27].S.Field3 = CF;
  874. roomrec[27].S.Field4 = CF;
  875. roomrec[27].S.Field5 = CF;
  876. roomrec[27].S.Field6 = CF;
  877.  
  878. roomrec[27].E.Field1 = CL; 
  879. roomrec[27].E.Field2 = ML;
  880. roomrec[27].E.Field3 = FL;
  881. roomrec[27].E.Field4 = FR;
  882. roomrec[27].E.Field5 = MR;
  883. roomrec[27].E.Field6 = CR;
  884.  
  885. roomrec[27].W.Field1 = CL; 
  886. roomrec[27].W.Field2 = ML;
  887. roomrec[27].W.Field3 = EMPTY;
  888. roomrec[27].W.Field4 = FR;
  889. roomrec[27].W.Field5 = MR;
  890. roomrec[27].W.Field6 = CR;
  891.  
  892.  
  893. /******************************/
  894.                                /* room 28 */
  895.  
  896. roomrec[28].N.Field1 = CF; 
  897. roomrec[28].N.Field2 = CF;
  898. roomrec[28].N.Field3 = CF;
  899. roomrec[28].N.Field4 = CF;
  900. roomrec[28].N.Field5 = CF;
  901. roomrec[28].N.Field6 = CF;
  902.  
  903. roomrec[28].S.Field1 = CF; 
  904. roomrec[28].S.Field2 = CF;
  905. roomrec[28].S.Field3 = CF;
  906. roomrec[28].S.Field4 = CF;
  907. roomrec[28].S.Field5 = CF;
  908. roomrec[28].S.Field6 = CF;
  909.  
  910. roomrec[28].E.Field1 = CL; 
  911. roomrec[28].E.Field2 = ML;
  912. roomrec[28].E.Field3 = FL;
  913. roomrec[28].E.Field4 = FR;
  914. roomrec[28].E.Field5 = MR;
  915. roomrec[28].E.Field6 = CR;
  916.  
  917. roomrec[28].W.Field1 = CL; 
  918. roomrec[28].W.Field2 = ML;
  919. roomrec[28].W.Field3 = FL;
  920. roomrec[28].W.Field4 = FR;
  921. roomrec[28].W.Field5 = MR;
  922. roomrec[28].W.Field6 = CR;
  923.  
  924.  
  925. /***************************/
  926.                             /* Room 29 */
  927. roomrec[29].N.Field1 = CF; 
  928. roomrec[29].N.Field2 = CF;
  929. roomrec[29].N.Field3 = CF;
  930. roomrec[29].N.Field4 = CF;
  931. roomrec[29].N.Field5 = CF;
  932. roomrec[29].N.Field6 = CF;
  933.  
  934. roomrec[29].S.Field1 = CF; 
  935. roomrec[29].S.Field2 = CF;
  936. roomrec[29].S.Field3 = CF;
  937. roomrec[29].S.Field4 = CF;
  938. roomrec[29].S.Field5 = CF;
  939. roomrec[29].S.Field6 = CF;
  940.  
  941. roomrec[29].E.Field1 = CL; 
  942. roomrec[29].E.Field2 = ML;
  943. roomrec[29].E.Field3 = FL;
  944. roomrec[29].E.Field4 = EMPTY;
  945. roomrec[29].E.Field5 = MR;
  946. roomrec[29].E.Field6 = CR;
  947.  
  948. roomrec[29].W.Field1 = CL; 
  949. roomrec[29].W.Field2 = ML;
  950. roomrec[29].W.Field3 = FL;
  951. roomrec[29].W.Field4 = FR;
  952. roomrec[29].W.Field5 = MR;
  953. roomrec[29].W.Field6 = CR;
  954.  
  955. /****************************/
  956.                              /* room 30 */
  957. roomrec[30].N.Field1 = CF; 
  958. roomrec[30].N.Field2 = CF;
  959. roomrec[30].N.Field3 = CF;
  960. roomrec[30].N.Field4 = CF;
  961. roomrec[30].N.Field5 = CF;
  962. roomrec[30].N.Field6 = CF;
  963.  
  964. roomrec[30].S.Field1 = CF; 
  965. roomrec[30].S.Field2 = CF;
  966. roomrec[30].S.Field3 = CF;
  967. roomrec[30].S.Field4 = CF;
  968. roomrec[30].S.Field5 = CF;
  969. roomrec[30].S.Field6 = CF;
  970.  
  971. roomrec[30].E.Field1 = CL; 
  972. roomrec[30].E.Field2 = ML;
  973. roomrec[30].E.Field3 = FF;
  974. roomrec[30].E.Field4 = FF;
  975. roomrec[30].E.Field5 = FF;
  976. roomrec[30].E.Field6 = CR;
  977.  
  978. roomrec[30].W.Field1 = CL; 
  979. roomrec[30].W.Field2 = ML;
  980. roomrec[30].W.Field3 = FL;
  981. roomrec[30].W.Field4 = FR;
  982. roomrec[30].W.Field5 = MR;
  983. roomrec[30].W.Field6 = CR;
  984.  
  985. /**************************/  
  986.  
  987.                              /* Room : 31 */
  988. roomrec[31].N.Field1 = CF; 
  989. roomrec[31].N.Field2 = CF;
  990. roomrec[31].N.Field3 = CF;
  991. roomrec[31].N.Field4 = CF;
  992. roomrec[31].N.Field5 = CF;
  993. roomrec[31].N.Field6 = CF;
  994.  
  995. roomrec[31].S.Field1 = CL; 
  996. roomrec[31].S.Field2 = ML;
  997. roomrec[31].S.Field3 = FL;
  998. roomrec[31].S.Field4 = FR;
  999. roomrec[31].S.Field5 = MR;
  1000. roomrec[31].S.Field6 = MF;
  1001.  
  1002. roomrec[31].E.Field1 = CF; 
  1003. roomrec[31].E.Field2 = CF;
  1004. roomrec[31].E.Field3 = CF;
  1005. roomrec[31].E.Field4 = CF;
  1006. roomrec[31].E.Field5 = CF;
  1007. roomrec[31].E.Field6 = CF;
  1008.  
  1009. roomrec[31].W.Field1 = MF; 
  1010. roomrec[31].W.Field2 = ML;
  1011. roomrec[31].W.Field3 = FL;
  1012. roomrec[31].W.Field4 = FR;
  1013. roomrec[31].W.Field5 = MR;
  1014. roomrec[31].W.Field6 = CR;
  1015.  
  1016. /**************************/
  1017. /**************************/  
  1018.  
  1019.                              /* Room : 32 */
  1020. roomrec[32].N.Field1 = CL; 
  1021. roomrec[32].N.Field2 = ML;
  1022. roomrec[32].N.Field3 = FL;
  1023. roomrec[32].N.Field4 = EMPTY;
  1024. roomrec[32].N.Field5 = MR;
  1025. roomrec[32].N.Field6 = CR;
  1026.  
  1027. roomrec[32].S.Field1 = CL; 
  1028. roomrec[32].S.Field2 = ML;
  1029. roomrec[32].S.Field3 = FL;
  1030. roomrec[32].S.Field4 = FR;
  1031. roomrec[32].S.Field5 = MR;
  1032. roomrec[32].S.Field6 = CR;
  1033.  
  1034. roomrec[32].E.Field1 = CF; 
  1035. roomrec[32].E.Field2 = CF;
  1036. roomrec[32].E.Field3 = CF;
  1037. roomrec[32].E.Field4 = CF;
  1038. roomrec[32].E.Field5 = CF;
  1039. roomrec[32].E.Field6 = CF;
  1040.  
  1041. roomrec[32].W.Field1 = CF; 
  1042. roomrec[32].W.Field2 = CF;
  1043. roomrec[32].W.Field3 = CF;
  1044. roomrec[32].W.Field4 = CF;
  1045. roomrec[32].W.Field5 = CF;
  1046. roomrec[32].W.Field6 = CF;
  1047.  
  1048. /**************************/
  1049.  
  1050. /**************************/  
  1051.  
  1052.                              /* Room : 33 */
  1053. roomrec[33].N.Field1 = CF; 
  1054. roomrec[33].N.Field2 = CF;
  1055. roomrec[33].N.Field3 = CF;
  1056. roomrec[33].N.Field4 = CF;
  1057. roomrec[33].N.Field5 = CF;
  1058. roomrec[33].N.Field6 = CF;
  1059.  
  1060. roomrec[33].S.Field1 = CF; 
  1061. roomrec[33].S.Field2 = CF;
  1062. roomrec[33].S.Field3 = CF;
  1063. roomrec[33].S.Field4 = CF;
  1064. roomrec[33].S.Field5 = CF;
  1065. roomrec[33].S.Field6 = CF;
  1066.  
  1067. roomrec[33].E.Field1 = CL; 
  1068. roomrec[33].E.Field2 = ML;
  1069. roomrec[33].E.Field3 = FL;
  1070. roomrec[33].E.Field4 = EMPTY;
  1071. roomrec[33].E.Field5 = MR;
  1072. roomrec[33].E.Field6 = CR;
  1073.  
  1074. roomrec[33].W.Field1 = CF; 
  1075. roomrec[33].W.Field2 = CF;
  1076. roomrec[33].W.Field3 = CF;
  1077. roomrec[33].W.Field4 = CF;
  1078. roomrec[33].W.Field5 = CF;
  1079. roomrec[33].W.Field6 = CF;
  1080.  
  1081.  
  1082. /**************************/  
  1083.  
  1084.                              /* Room : 34 */
  1085. roomrec[34].N.Field1 = CF; 
  1086. roomrec[34].N.Field2 = CF;
  1087. roomrec[34].N.Field3 = CF;
  1088. roomrec[34].N.Field4 = CF;
  1089. roomrec[34].N.Field5 = CF;
  1090. roomrec[34].N.Field6 = CF;
  1091.  
  1092. roomrec[34].S.Field1 = CF; 
  1093. roomrec[34].S.Field2 = CF;
  1094. roomrec[34].S.Field3 = CF;
  1095. roomrec[34].S.Field4 = CF;
  1096. roomrec[34].S.Field5 = CF;
  1097. roomrec[34].S.Field6 = CF;
  1098.  
  1099. roomrec[34].E.Field1 = CL; 
  1100. roomrec[34].E.Field2 = ML;
  1101. roomrec[34].E.Field3 = EMPTY;
  1102. roomrec[34].E.Field4 = FR;
  1103. roomrec[34].E.Field5 = FF;
  1104. roomrec[34].E.Field6 = CR;
  1105.  
  1106. roomrec[34].W.Field1 = CL; 
  1107. roomrec[34].W.Field2 = ML;
  1108. roomrec[34].W.Field3 = FF;
  1109. roomrec[34].W.Field4 = FF;
  1110. roomrec[34].W.Field5 = MR;
  1111. roomrec[34].W.Field6 = CR;
  1112. /**************************/  /**************************/  
  1113.  
  1114.                              /* Room : 35 */
  1115. roomrec[35].N.Field1 = CF; 
  1116. roomrec[35].N.Field2 = CF;
  1117. roomrec[35].N.Field3 = CF;
  1118. roomrec[35].N.Field4 = CF;
  1119. roomrec[35].N.Field5 = CF;
  1120. roomrec[35].N.Field6 = CF;
  1121.  
  1122. roomrec[35].S.Field1 = MF; 
  1123. roomrec[35].S.Field2 = ML;
  1124. roomrec[35].S.Field3 = FL;
  1125. roomrec[35].S.Field4 = FR;
  1126. roomrec[35].S.Field5 = MR;
  1127. roomrec[35].S.Field6 = MF;
  1128.  
  1129. roomrec[35].E.Field1 = CL; 
  1130. roomrec[35].E.Field2 = FF;
  1131. roomrec[35].E.Field3 = FF;
  1132. roomrec[35].E.Field4 = FF;
  1133. roomrec[35].E.Field5 = MR;
  1134. roomrec[35].E.Field6 = MF;
  1135.  
  1136. roomrec[35].W.Field1 = MF; 
  1137. roomrec[35].W.Field2 = ML;
  1138. roomrec[35].W.Field3 = FL;
  1139. roomrec[35].W.Field4 = FR;
  1140. roomrec[35].W.Field5 = MR;
  1141. roomrec[35].W.Field6 = CR;
  1142.  
  1143. /**************************/
  1144.  
  1145. /**************************/  
  1146.  
  1147.                              /* Room : 36 */
  1148. roomrec[36].N.Field1 = MF; 
  1149. roomrec[36].N.Field2 = ML;
  1150. roomrec[36].N.Field3 = EMPTY;
  1151. roomrec[36].N.Field4 = EMPTY;
  1152. roomrec[36].N.Field5 = MR;
  1153. roomrec[36].N.Field6 = CR;
  1154.  
  1155. roomrec[36].S.Field1 = CF; 
  1156. roomrec[36].S.Field2 = CF;
  1157. roomrec[36].S.Field3 = CF;
  1158. roomrec[36].S.Field4 = CF;
  1159. roomrec[36].S.Field5 = CF;
  1160. roomrec[36].S.Field6 = CF;
  1161.  
  1162. roomrec[36].E.Field1 = CF; 
  1163. roomrec[36].E.Field2 = CF;
  1164. roomrec[36].E.Field3 = CF;
  1165. roomrec[36].E.Field4 = CF;
  1166. roomrec[36].E.Field5 = CF;
  1167. roomrec[36].E.Field6 = CF;
  1168.  
  1169. roomrec[36].W.Field1 = CL; 
  1170. roomrec[36].W.Field2 = FF;
  1171. roomrec[36].W.Field3 = FL;
  1172. roomrec[36].W.Field4 = FR;
  1173. roomrec[36].W.Field5 = MR;
  1174. roomrec[36].W.Field6 = MF;
  1175.  
  1176.  
  1177. /**************************/  
  1178.  
  1179.                              /* Room : 37 */
  1180. roomrec[37].N.Field1 = CL; 
  1181. roomrec[37].N.Field2 = ML;
  1182. roomrec[37].N.Field3 = EMPTY;
  1183. roomrec[37].N.Field4 = EMPTY;
  1184. roomrec[37].N.Field5 = MR;
  1185. roomrec[37].N.Field6 = MF;
  1186.  
  1187. roomrec[37].S.Field1 = MF; 
  1188. roomrec[37].S.Field2 = ML;
  1189. roomrec[37].S.Field3 = FF;
  1190. roomrec[37].S.Field4 = FF;
  1191. roomrec[37].S.Field5 = FF;
  1192. roomrec[37].S.Field6 = CR;
  1193.  
  1194. roomrec[37].E.Field1 = MF; 
  1195. roomrec[37].E.Field2 = ML;
  1196. roomrec[37].E.Field3 = FL;
  1197. roomrec[37].E.Field4 = FR;
  1198. roomrec[37].E.Field5 = MR;
  1199. roomrec[37].E.Field6 = MF;
  1200.  
  1201. roomrec[37].W.Field1 = CF; 
  1202. roomrec[37].W.Field2 = CF;
  1203. roomrec[37].W.Field3 = CF;
  1204. roomrec[37].W.Field4 = CF;
  1205. roomrec[37].W.Field5 = CF;
  1206. roomrec[37].W.Field6 = CF;
  1207.  
  1208. /**************************/
  1209.  /**************************/  
  1210.  
  1211.                              /* Room : 38 */
  1212. roomrec[38].N.Field1 = CF; 
  1213. roomrec[38].N.Field2 = CF;
  1214. roomrec[38].N.Field3 = CF;
  1215. roomrec[38].N.Field4 = CF;
  1216. roomrec[38].N.Field5 = CF;
  1217. roomrec[38].N.Field6 = CF;
  1218.  
  1219. roomrec[38].S.Field1 = CF; 
  1220. roomrec[38].S.Field2 = CF;
  1221. roomrec[38].S.Field3 = CF;
  1222. roomrec[38].S.Field4 = CF;
  1223. roomrec[38].S.Field5 = CF;
  1224. roomrec[38].S.Field6 = CF;
  1225.  
  1226. roomrec[38].E.Field1 = CL; 
  1227. roomrec[38].E.Field2 = ML;
  1228. roomrec[38].E.Field3 = EMPTY;
  1229. roomrec[38].E.Field4 = EMPTY;
  1230. roomrec[38].E.Field5 = MR;
  1231. roomrec[38].E.Field6 = CR;
  1232.  
  1233. roomrec[38].W.Field1 = CL; 
  1234. roomrec[38].W.Field2 = FF;
  1235. roomrec[38].W.Field3 = FF;
  1236. roomrec[38].W.Field4 = FF;
  1237. roomrec[38].W.Field5 = FF;
  1238. roomrec[38].W.Field6 = CR;
  1239.  
  1240. /**************************/
  1241.  
  1242. /**************************/  
  1243.  
  1244.                              /* Room : 39 */
  1245. roomrec[39].N.Field1 = CF; 
  1246. roomrec[39].N.Field2 = CF;
  1247. roomrec[39].N.Field3 = CF;
  1248. roomrec[39].N.Field4 = CF;
  1249. roomrec[39].N.Field5 = CF;
  1250. roomrec[39].N.Field6 = CF;
  1251.  
  1252. roomrec[39].S.Field1 = CF; 
  1253. roomrec[39].S.Field2 = CF;
  1254. roomrec[39].S.Field3 = CF;
  1255. roomrec[39].S.Field4 = CF;
  1256. roomrec[39].S.Field5 = CF;
  1257. roomrec[39].S.Field6 = CF;
  1258.  
  1259. roomrec[39].E.Field1 = CL; 
  1260. roomrec[39].E.Field2 = FF;
  1261. roomrec[39].E.Field3 = FL;
  1262. roomrec[39].E.Field4 = FR;
  1263. roomrec[39].E.Field5 = FF;
  1264. roomrec[39].E.Field6 = CR;
  1265.  
  1266. roomrec[39].W.Field1 = CL; 
  1267. roomrec[39].W.Field2 = ML;
  1268. roomrec[39].W.Field3 = EMPTY;
  1269. roomrec[39].W.Field4 = EMPTY;
  1270. roomrec[39].W.Field5 = MR;
  1271. roomrec[39].W.Field6 = CR;
  1272.  
  1273.  
  1274. /**************************/  
  1275. /**************************/  
  1276.  
  1277.                              /* Room : 40 */
  1278. roomrec[40].N.Field1 = MF; 
  1279. roomrec[40].N.Field2 = ML;
  1280. roomrec[40].N.Field3 = EMPTY;
  1281. roomrec[40].N.Field4 = EMPTY;
  1282. roomrec[40].N.Field5 = MR;
  1283. roomrec[40].N.Field6 = MF;
  1284.  
  1285. roomrec[40].S.Field1 = MF; 
  1286. roomrec[40].S.Field2 = ML;
  1287. roomrec[40].S.Field3 = EMPTY;
  1288. roomrec[40].S.Field4 = FR;
  1289. roomrec[40].S.Field5 = MR;
  1290. roomrec[40].S.Field6 = MF;
  1291.  
  1292. roomrec[40].E.Field1 = MF; 
  1293. roomrec[40].E.Field2 = ML;
  1294. roomrec[40].E.Field3 = FL;
  1295. roomrec[40].E.Field4 = FR;
  1296. roomrec[40].E.Field5 = MR;
  1297. roomrec[40].E.Field6 = MF;
  1298.  
  1299. roomrec[40].W.Field1 = MF; 
  1300. roomrec[40].W.Field2 = ML;
  1301. roomrec[40].W.Field3 = FL;
  1302. roomrec[40].W.Field4 = FR;
  1303. roomrec[40].W.Field5 = MR;
  1304. roomrec[40].W.Field6 = MF;
  1305.  
  1306.  
  1307. /**************************/  
  1308. /**************************/  
  1309.  
  1310.                              /* Room : 41 */
  1311. roomrec[41].N.Field1 = CF; 
  1312. roomrec[41].N.Field2 = CF;
  1313. roomrec[41].N.Field3 = CF;
  1314. roomrec[41].N.Field4 = CF;
  1315. roomrec[41].N.Field5 = CF;
  1316. roomrec[41].N.Field6 = CF;
  1317.  
  1318. roomrec[41].S.Field1 = CF; 
  1319. roomrec[41].S.Field2 = CF;
  1320. roomrec[41].S.Field3 = CF;
  1321. roomrec[41].S.Field4 = CF;
  1322. roomrec[41].S.Field5 = CF;
  1323. roomrec[41].S.Field6 = CF;
  1324.  
  1325. roomrec[41].E.Field1 = CL; 
  1326. roomrec[41].E.Field2 = ML;
  1327. roomrec[41].E.Field3 = EMPTY;
  1328. roomrec[41].E.Field4 = FR;
  1329. roomrec[41].E.Field5 = MR;
  1330. roomrec[41].E.Field6 = CR;
  1331.  
  1332. roomrec[41].W.Field1 = CL; 
  1333. roomrec[41].W.Field2 = FF;
  1334. roomrec[41].W.Field3 = FL;
  1335. roomrec[41].W.Field4 = FR;
  1336. roomrec[41].W.Field5 = FF;
  1337. roomrec[41].W.Field6 = CR;
  1338.  
  1339.  
  1340. /**************************/  
  1341.  
  1342.                              /* Room : 42 */
  1343. roomrec[42].N.Field1 = CF; 
  1344. roomrec[42].N.Field2 = CF;
  1345. roomrec[42].N.Field3 = CF;
  1346. roomrec[42].N.Field4 = CF;
  1347. roomrec[42].N.Field5 = CF;
  1348. roomrec[42].N.Field6 = CF;
  1349.  
  1350. roomrec[42].S.Field1 = CF; 
  1351. roomrec[42].S.Field2 = CF;
  1352. roomrec[42].S.Field3 = CF;
  1353. roomrec[42].S.Field4 = CF;
  1354. roomrec[42].S.Field5 = CF;
  1355. roomrec[42].S.Field6 = CF;
  1356.  
  1357. roomrec[42].E.Field1 = CL; 
  1358. roomrec[42].E.Field2 = FF;
  1359. roomrec[42].E.Field3 = FF;
  1360. roomrec[42].E.Field4 = FF;
  1361. roomrec[42].E.Field5 = MR;
  1362. roomrec[42].E.Field6 = CR;
  1363.  
  1364. roomrec[42].W.Field1 = CL; 
  1365. roomrec[42].W.Field2 = ML;
  1366. roomrec[42].W.Field3 = EMPTY;
  1367. roomrec[42].W.Field4 = EMPTY;
  1368. roomrec[42].W.Field5 = MR;
  1369. roomrec[42].W.Field6 = CR;
  1370.  
  1371. /**************************/  
  1372.  
  1373.                              /* Room : 43 */
  1374. roomrec[43].N.Field1 = MF; 
  1375. roomrec[43].N.Field2 = ML;
  1376. roomrec[43].N.Field3 = EMPTY;
  1377. roomrec[43].N.Field4 = EMPTY;
  1378. roomrec[43].N.Field5 = MR;
  1379. roomrec[43].N.Field6 = CR;
  1380.  
  1381. roomrec[43].S.Field1 = CF; 
  1382. roomrec[43].S.Field2 = CF;
  1383. roomrec[43].S.Field3 = CF;
  1384. roomrec[43].S.Field4 = CF;
  1385. roomrec[43].S.Field5 = CF;
  1386. roomrec[43].S.Field6 = CF;
  1387.  
  1388. roomrec[43].E.Field1 = CF; 
  1389. roomrec[43].E.Field2 = CF;
  1390. roomrec[43].E.Field3 = CF;
  1391. roomrec[43].E.Field4 = CF;
  1392. roomrec[43].E.Field5 = CF;
  1393. roomrec[43].E.Field6 = CF;
  1394.  
  1395. roomrec[43].W.Field1 = CL; 
  1396. roomrec[43].W.Field2 = ML;
  1397. roomrec[43].W.Field3 = FL;
  1398. roomrec[43].W.Field4 = FR;
  1399. roomrec[43].W.Field5 = MR;
  1400. roomrec[43].W.Field6 = MF;
  1401. /**************************/  
  1402.  
  1403.                              /* Room : 44 */
  1404. roomrec[44].N.Field1 = CL; 
  1405. roomrec[44].N.Field2 = FF;
  1406. roomrec[44].N.Field3 = FF;
  1407. roomrec[44].N.Field4 = FF;
  1408. roomrec[44].N.Field5 = FF;
  1409. roomrec[44].N.Field6 = CR;
  1410.  
  1411. roomrec[44].S.Field1 = CL; 
  1412. roomrec[44].S.Field2 = ML;
  1413. roomrec[44].S.Field3 = FF;
  1414. roomrec[44].S.Field4 = FF;
  1415. roomrec[44].S.Field5 = FF;
  1416. roomrec[44].S.Field6 = CR;
  1417.  
  1418. roomrec[44].E.Field1 = CF; 
  1419. roomrec[44].E.Field2 = CF;
  1420. roomrec[44].E.Field3 = CF;
  1421. roomrec[44].E.Field4 = CF;
  1422. roomrec[44].E.Field5 = CF;
  1423. roomrec[44].E.Field6 = CF;
  1424.  
  1425. roomrec[44].W.Field1 = CF;            /* TAVERN */ 
  1426. roomrec[44].W.Field2 = CF;
  1427. roomrec[44].W.Field3 = CF;
  1428. roomrec[44].W.Field4 = CF;
  1429. roomrec[44].W.Field5 = CF;
  1430. roomrec[44].W.Field6 = CF;
  1431. /**************************/  
  1432.  
  1433.                              /* Room : 45 */
  1434. roomrec[45].N.Field1 = CL; 
  1435. roomrec[45].N.Field2 = FF;
  1436. roomrec[45].N.Field3 = FF;
  1437. roomrec[45].N.Field4 = FF;
  1438. roomrec[45].N.Field5 = MR;
  1439. roomrec[45].N.Field6 = CR;
  1440.  
  1441. roomrec[45].S.Field1 = CL; 
  1442. roomrec[45].S.Field2 = ML;
  1443. roomrec[45].S.Field3 = FL;
  1444. roomrec[45].S.Field4 = FR;
  1445. roomrec[45].S.Field5 = MR;
  1446. roomrec[45].S.Field6 = CR;
  1447.  
  1448. roomrec[45].E.Field1 = CF; 
  1449. roomrec[45].E.Field2 = CF;
  1450. roomrec[45].E.Field3 = CF;
  1451. roomrec[45].E.Field4 = CF;
  1452. roomrec[45].E.Field5 = CF;
  1453. roomrec[45].E.Field6 = CF;
  1454.  
  1455. roomrec[45].W.Field1 = CF; 
  1456. roomrec[45].W.Field2 = CF;
  1457. roomrec[45].W.Field3 = CF;
  1458. roomrec[45].W.Field4 = CF;
  1459. roomrec[45].W.Field5 = CF;
  1460. roomrec[45].W.Field6 = CF;
  1461. /**************************/  
  1462.  
  1463.                              /* Room : 46 */
  1464. roomrec[46].N.Field1 = CL; 
  1465. roomrec[46].N.Field2 = ML;
  1466. roomrec[46].N.Field3 = FL;
  1467. roomrec[46].N.Field4 = FR;
  1468. roomrec[46].N.Field5 = MR;
  1469. roomrec[46].N.Field6 = CR;
  1470.  
  1471. roomrec[46].S.Field1 = CL; 
  1472. roomrec[46].S.Field2 = ML;
  1473. roomrec[46].S.Field3 = FL;
  1474. roomrec[46].S.Field4 = FR;
  1475. roomrec[46].S.Field5 = MR;
  1476. roomrec[46].S.Field6 = CR;
  1477.  
  1478. roomrec[46].E.Field1 = CF; 
  1479. roomrec[46].E.Field2 = CF;
  1480. roomrec[46].E.Field3 = CF;
  1481. roomrec[46].E.Field4 = CF;
  1482. roomrec[46].E.Field5 = CF;
  1483. roomrec[46].E.Field6 = CF;
  1484.  
  1485. roomrec[46].W.Field1 = CF; 
  1486. roomrec[46].W.Field2 = CF;
  1487. roomrec[46].W.Field3 = CF;
  1488. roomrec[46].W.Field4 = CF;
  1489. roomrec[46].W.Field5 = CF;
  1490. roomrec[46].W.Field6 = CF;
  1491. /**************************/  
  1492.  
  1493.                              /* Room : 47 */
  1494. roomrec[47].N.Field1 = CL; 
  1495. roomrec[47].N.Field2 = FF;
  1496. roomrec[47].N.Field3 = FF;
  1497. roomrec[47].N.Field4 = FF;
  1498. roomrec[47].N.Field5 = FF;
  1499. roomrec[47].N.Field6 = CR;
  1500.  
  1501. roomrec[47].S.Field1 = CL; 
  1502. roomrec[47].S.Field2 = ML;
  1503. roomrec[47].S.Field3 = FL;
  1504. roomrec[47].S.Field4 = FR;
  1505. roomrec[47].S.Field5 = MR;
  1506. roomrec[47].S.Field6 = CR;
  1507.  
  1508. roomrec[47].E.Field1 = CF; 
  1509. roomrec[47].E.Field2 = CF;
  1510. roomrec[47].E.Field3 = CF;
  1511. roomrec[47].E.Field4 = CF;
  1512. roomrec[47].E.Field5 = CF;
  1513. roomrec[47].E.Field6 = CF;
  1514.  
  1515. roomrec[47].W.Field1 = CF;  /* ARMORY */ 
  1516. roomrec[47].W.Field2 = CF;
  1517. roomrec[47].W.Field3 = CF;
  1518. roomrec[47].W.Field4 = CF;
  1519. roomrec[47].W.Field5 = CF;
  1520. roomrec[47].W.Field6 = CF;
  1521.  
  1522.  
  1523. /**************************/  
  1524.  
  1525.                              /* Room : 48 */
  1526. roomrec[48].N.Field1 = CF; 
  1527. roomrec[48].N.Field2 = CF;
  1528. roomrec[48].N.Field3 = CF;
  1529. roomrec[48].N.Field4 = CF;
  1530. roomrec[48].N.Field5 = CF;
  1531. roomrec[48].N.Field6 = CF;
  1532.  
  1533. roomrec[48].S.Field1 = MF; 
  1534. roomrec[48].S.Field2 = ML;
  1535. roomrec[48].S.Field3 = FL;
  1536. roomrec[48].S.Field4 = FR;
  1537. roomrec[48].S.Field5 = MR;
  1538. roomrec[48].S.Field6 = CR;
  1539.  
  1540. roomrec[48].E.Field1 = CL; 
  1541. roomrec[48].E.Field2 = FF;
  1542. roomrec[48].E.Field3 = FF;
  1543. roomrec[48].E.Field4 = FF;
  1544. roomrec[48].E.Field5 = MR;
  1545. roomrec[48].E.Field6 = MF;
  1546.  
  1547. roomrec[48].W.Field1 = CF; 
  1548. roomrec[48].W.Field2 = CF;
  1549. roomrec[48].W.Field3 = CF;
  1550. roomrec[48].W.Field4 = CF;
  1551. roomrec[48].W.Field5 = CF;
  1552. roomrec[48].W.Field6 = CF;
  1553. /**************************/  
  1554.  
  1555.                              /* Room : 49 */
  1556. roomrec[49].N.Field1 = MF; 
  1557. roomrec[49].N.Field2 = ML;
  1558. roomrec[49].N.Field3 = FL;
  1559. roomrec[49].N.Field4 = FR;
  1560. roomrec[49].N.Field5 = FF;
  1561. roomrec[49].N.Field6 = CR;
  1562.  
  1563. roomrec[49].S.Field1 = CF; 
  1564. roomrec[49].S.Field2 = CF;
  1565. roomrec[49].S.Field3 = CF;
  1566. roomrec[49].S.Field4 = CF;
  1567. roomrec[49].S.Field5 = CF;
  1568. roomrec[49].S.Field6 = CF;
  1569.  
  1570. roomrec[49].E.Field1 = CF; 
  1571. roomrec[49].E.Field2 = CF;
  1572. roomrec[49].E.Field3 = CF;
  1573. roomrec[49].E.Field4 = CF;
  1574. roomrec[49].E.Field5 = CF;
  1575. roomrec[49].E.Field6 = CF;
  1576.  
  1577. roomrec[49].W.Field1 = CL; 
  1578. roomrec[49].W.Field2 = FF;
  1579. roomrec[49].W.Field3 = FF;
  1580. roomrec[49].W.Field4 = FF;
  1581. roomrec[49].W.Field5 = MR;
  1582. roomrec[49].W.Field6 = MF;
  1583. /**************************/  
  1584.  
  1585.                              /* Room : 50 */
  1586. roomrec[50].N.Field1 = CL; 
  1587. roomrec[50].N.Field2 = FF;
  1588. roomrec[50].N.Field3 = FL;
  1589. roomrec[50].N.Field4 = FR;
  1590. roomrec[50].N.Field5 = FF;
  1591. roomrec[50].N.Field6 = CR;
  1592.  
  1593. roomrec[50].S.Field1 = CL; 
  1594. roomrec[50].S.Field2 = EMPTY;
  1595. roomrec[50].S.Field3 = EMPTY;
  1596. roomrec[50].S.Field4 = EMPTY;
  1597. roomrec[50].S.Field5 = MR;
  1598. roomrec[50].S.Field6 = CR;
  1599.  
  1600. roomrec[50].E.Field1 = CF; 
  1601. roomrec[50].E.Field2 = CF;
  1602. roomrec[50].E.Field3 = CF;
  1603. roomrec[50].E.Field4 = CF;
  1604. roomrec[50].E.Field5 = CF;
  1605. roomrec[50].E.Field6 = CF;
  1606.  
  1607. roomrec[50].W.Field1 = CF; 
  1608. roomrec[50].W.Field2 = CF;
  1609. roomrec[50].W.Field3 = CF;
  1610. roomrec[50].W.Field4 = CF;
  1611. roomrec[50].W.Field5 = CF;
  1612. roomrec[50].W.Field6 = CF;
  1613. /**********************************/
  1614.  
  1615.  
  1616.                                 /* Room 1 */
  1617. roomrec[51].N.Field1 = CF; 
  1618. roomrec[51].N.Field2 = CF;
  1619. roomrec[51].N.Field3 = CF;
  1620. roomrec[51].N.Field4 = CF;
  1621. roomrec[51].N.Field5 = CF;
  1622. roomrec[51].N.Field6 = CF;
  1623.  
  1624. roomrec[51].S.Field1 = MF; 
  1625. roomrec[51].S.Field2 = ML;
  1626. roomrec[51].S.Field3 = FL;
  1627. roomrec[51].S.Field4 = FR;
  1628. roomrec[51].S.Field5 = FF;
  1629. roomrec[51].S.Field6 = CR;
  1630.  
  1631. roomrec[51].E.Field1 = CL; 
  1632. roomrec[51].E.Field2 = ML;
  1633. roomrec[51].E.Field3 = EMPTY;
  1634. roomrec[51].E.Field4 = FR;
  1635. roomrec[51].E.Field5 = MR;
  1636. roomrec[51].E.Field6 = MF;
  1637.  
  1638. roomrec[51].W.Field1 = CF; 
  1639. roomrec[51].W.Field2 = CF;
  1640. roomrec[51].W.Field3 = CF;
  1641. roomrec[51].W.Field4 = CF;
  1642. roomrec[51].W.Field5 = CF;
  1643. roomrec[51].W.Field6 = CF;
  1644.  
  1645. /******************************/
  1646.                                  /* room 2 */
  1647. roomrec[52].N.Field1 = CF; 
  1648. roomrec[52].N.Field2 = CF;
  1649. roomrec[52].N.Field3 = CF;
  1650. roomrec[52].N.Field4 = CF;
  1651. roomrec[52].N.Field5 = CF;
  1652. roomrec[52].N.Field6 = CF;
  1653.  
  1654. roomrec[52].S.Field1 = CF; 
  1655. roomrec[52].S.Field2 = CF;
  1656. roomrec[52].S.Field3 = CF;
  1657. roomrec[52].S.Field4 = CF;
  1658. roomrec[52].S.Field5 = CF;
  1659. roomrec[52].S.Field6 = CF;
  1660.  
  1661. roomrec[52].E.Field1 = CL; 
  1662. roomrec[52].E.Field2 = FF;
  1663. roomrec[52].E.Field3 = FF;
  1664. roomrec[52].E.Field4 = FF;
  1665. roomrec[52].E.Field5 = MR;
  1666. roomrec[52].E.Field6 = CR;
  1667.  
  1668. roomrec[52].W.Field1 = CL; 
  1669. roomrec[52].W.Field2 = FF;
  1670. roomrec[52].W.Field3 = FF;
  1671. roomrec[52].W.Field4 = FF;
  1672. roomrec[52].W.Field5 = MR;
  1673. roomrec[52].W.Field6 = CR;
  1674.  
  1675.  
  1676. /******************************/
  1677.                                /* room 3 */
  1678.  
  1679. roomrec[53].N.Field1 = MF; 
  1680. roomrec[53].N.Field2 = ML;
  1681. roomrec[53].N.Field3 = EMPTY;
  1682. roomrec[53].N.Field4 = EMPTY;
  1683. roomrec[53].N.Field5 = MR;
  1684. roomrec[53].N.Field6 = CR;
  1685.  
  1686. roomrec[53].S.Field1 = CF; 
  1687. roomrec[53].S.Field2 = CF;
  1688. roomrec[53].S.Field3 = CF;
  1689. roomrec[53].S.Field4 = CF;
  1690. roomrec[53].S.Field5 = CF;
  1691. roomrec[53].S.Field6 = CF;
  1692.  
  1693. roomrec[53].E.Field1 = CF; 
  1694. roomrec[53].E.Field2 = CF;
  1695. roomrec[53].E.Field3 = CF;
  1696. roomrec[53].E.Field4 = CF;
  1697. roomrec[53].E.Field5 = CF;
  1698. roomrec[53].E.Field6 = CF;
  1699.  
  1700. roomrec[53].W.Field1 = CL; 
  1701. roomrec[53].W.Field2 = ML;
  1702. roomrec[53].W.Field3 = EMPTY;
  1703. roomrec[53].W.Field4 = FR;
  1704. roomrec[53].W.Field5 = MR;
  1705. roomrec[53].W.Field6 = MF;
  1706.  
  1707.  
  1708. /***************************/
  1709.                             /* Room 4 */
  1710. roomrec[54].N.Field1 = CL; 
  1711. roomrec[54].N.Field2 = ML;
  1712. roomrec[54].N.Field3 = EMPTY;
  1713. roomrec[54].N.Field4 = FR;
  1714. roomrec[54].N.Field5 = MR;
  1715. roomrec[54].N.Field6 = CR;
  1716.  
  1717. roomrec[54].S.Field1 = CL; 
  1718. roomrec[54].S.Field2 = ML;
  1719. roomrec[54].S.Field3 = FL;
  1720. roomrec[54].S.Field4 = FR;
  1721. roomrec[54].S.Field5 = MR;
  1722. roomrec[54].S.Field6 = CR;
  1723.  
  1724. roomrec[54].E.Field1 = CF; 
  1725. roomrec[54].E.Field2 = CF;
  1726. roomrec[54].E.Field3 = CF;
  1727. roomrec[54].E.Field4 = CF;
  1728. roomrec[54].E.Field5 = CF;
  1729. roomrec[54].E.Field6 = CF;
  1730.  
  1731. roomrec[54].W.Field1 = CF; 
  1732. roomrec[54].W.Field2 = CF;
  1733. roomrec[54].W.Field3 = CF;
  1734. roomrec[54].W.Field4 = CF;
  1735. roomrec[54].W.Field5 = CF;
  1736. roomrec[54].W.Field6 = CF;
  1737.  
  1738. /****************************/
  1739.                              /* room 5 */
  1740. roomrec[55].N.Field1 = CL; 
  1741. roomrec[55].N.Field2 = ML;
  1742. roomrec[55].N.Field3 = FL;
  1743. roomrec[55].N.Field4 = FR;
  1744. roomrec[55].N.Field5 = MR;
  1745. roomrec[55].N.Field6 = CR;
  1746.  
  1747. roomrec[55].S.Field1 = CL; 
  1748. roomrec[55].S.Field2 = ML;
  1749. roomrec[55].S.Field3 = FL;
  1750. roomrec[55].S.Field4 = FR;
  1751. roomrec[55].S.Field5 = MR;
  1752. roomrec[55].S.Field6 = CR;
  1753.  
  1754. roomrec[55].E.Field1 = CF; 
  1755. roomrec[55].E.Field2 = CF;
  1756. roomrec[55].E.Field3 = CF;
  1757. roomrec[55].E.Field4 = CF;
  1758. roomrec[55].E.Field5 = CF;
  1759. roomrec[55].E.Field6 = CF;
  1760.  
  1761. roomrec[55].W.Field1 = CF; 
  1762. roomrec[55].W.Field2 = CF;
  1763. roomrec[55].W.Field3 = CF;
  1764. roomrec[55].W.Field4 = CF;
  1765. roomrec[55].W.Field5 = CF;
  1766. roomrec[55].W.Field6 = CF;
  1767.  
  1768. /**************************/  
  1769.  
  1770.                              /* Room : 6 */
  1771. roomrec[56].N.Field1 = CL; 
  1772. roomrec[56].N.Field2 = ML;
  1773. roomrec[56].N.Field3 = EMPTY;
  1774. roomrec[56].N.Field4 = EMPTY;
  1775. roomrec[56].N.Field5 = MR;
  1776. roomrec[56].N.Field6 = CR;
  1777.  
  1778. roomrec[56].S.Field1 = CL; 
  1779. roomrec[56].S.Field2 = ML;
  1780. roomrec[56].S.Field3 = EMPTY;
  1781. roomrec[56].S.Field4 = EMPTY;
  1782. roomrec[56].S.Field5 = MR;
  1783. roomrec[56].S.Field6 = CR;
  1784.  
  1785. roomrec[56].E.Field1 = CF; 
  1786. roomrec[56].E.Field2 = CF;
  1787. roomrec[56].E.Field3 = CF;
  1788. roomrec[56].E.Field4 = CF;
  1789. roomrec[56].E.Field5 = CF;
  1790. roomrec[56].E.Field6 = CF;
  1791.  
  1792. roomrec[56].W.Field1 = CF; 
  1793. roomrec[56].W.Field2 = CF;
  1794. roomrec[56].W.Field3 = CF;
  1795. roomrec[56].W.Field4 = CF;
  1796. roomrec[56].W.Field5 = CF;
  1797. roomrec[56].W.Field6 = CF;
  1798.  
  1799. /**************************/
  1800. /**************************/  
  1801.  
  1802.                              /* Room : 7 */
  1803. roomrec[57].N.Field1 = CL; 
  1804. roomrec[57].N.Field2 = ML;
  1805. roomrec[57].N.Field3 = FF;
  1806. roomrec[57].N.Field4 = FF;
  1807. roomrec[57].N.Field5 = EMPTY;
  1808. roomrec[57].N.Field6 = CR;
  1809.  
  1810. roomrec[57].S.Field1 = CL; 
  1811. roomrec[57].S.Field2 = ML;
  1812. roomrec[57].S.Field3 = FL;
  1813. roomrec[57].S.Field4 = FR;
  1814. roomrec[57].S.Field5 = MR;
  1815. roomrec[57].S.Field6 = CR;
  1816.  
  1817. roomrec[57].E.Field1 = CF; 
  1818. roomrec[57].E.Field2 = CF;
  1819. roomrec[57].E.Field3 = CF;
  1820. roomrec[57].E.Field4 = CF;
  1821. roomrec[57].E.Field5 = CF;
  1822. roomrec[57].E.Field6 = CF;
  1823.  
  1824. roomrec[57].W.Field1 = CF; 
  1825. roomrec[57].W.Field2 = CF;
  1826. roomrec[57].W.Field3 = CF;
  1827. roomrec[57].W.Field4 = CF;
  1828. roomrec[57].W.Field5 = CF;
  1829. roomrec[57].W.Field6 = CF;
  1830.  
  1831. /**************************/
  1832.  
  1833. /**************************/  
  1834.  
  1835.                              /* Room : 8 */
  1836. roomrec[58].N.Field1 = CL; 
  1837. roomrec[58].N.Field2 = ML;
  1838. roomrec[58].N.Field3 = EMPTY;
  1839. roomrec[58].N.Field4 = EMPTY;
  1840. roomrec[58].N.Field5 = MR;
  1841. roomrec[58].N.Field6 = MF;
  1842.  
  1843. roomrec[58].S.Field1 = EMPTY; 
  1844. roomrec[58].S.Field2 = EMPTY;
  1845. roomrec[58].S.Field3 = FF;
  1846. roomrec[58].S.Field4 = FF;
  1847. roomrec[58].S.Field5 = EMPTY;
  1848. roomrec[58].S.Field6 = CR;
  1849.  
  1850. roomrec[58].E.Field1 = MF; 
  1851. roomrec[58].E.Field2 = ML;
  1852. roomrec[58].E.Field3 = FL;
  1853. roomrec[58].E.Field4 = EMPTY;
  1854. roomrec[58].E.Field5 = EMPTY;
  1855. roomrec[58].E.Field6 = EMPTY;
  1856.  
  1857. roomrec[58].W.Field1 = CF; 
  1858. roomrec[58].W.Field2 = CF;
  1859. roomrec[58].W.Field3 = CF;
  1860. roomrec[58].W.Field4 = CF;
  1861. roomrec[58].W.Field5 = CF;
  1862. roomrec[58].W.Field6 = CF;
  1863.  
  1864.  
  1865. /**************************/  
  1866.  
  1867.                              /* Room : 9 */
  1868. roomrec[59].N.Field1 = CF; 
  1869. roomrec[59].N.Field2 = CF;
  1870. roomrec[59].N.Field3 = CF;
  1871. roomrec[59].N.Field4 = CF;
  1872. roomrec[59].N.Field5 = CF;
  1873. roomrec[59].N.Field6 = CF;
  1874.  
  1875. roomrec[59].S.Field1 = MF; 
  1876. roomrec[59].S.Field2 = ML;
  1877. roomrec[59].S.Field3 = FL;
  1878. roomrec[59].S.Field4 = EMPTY;
  1879. roomrec[59].S.Field5 = FR;
  1880. roomrec[59].S.Field6 = FF;
  1881.  
  1882. roomrec[59].E.Field1 = CL; 
  1883. roomrec[59].E.Field2 = ML;
  1884. roomrec[59].E.Field3 = FL;
  1885. roomrec[59].E.Field4 = FR;
  1886. roomrec[59].E.Field5 = MR;
  1887. roomrec[59].E.Field6 = MF;
  1888.  
  1889. roomrec[59].W.Field1 = EMPTY; 
  1890. roomrec[59].W.Field2 = EMPTY;
  1891. roomrec[59].W.Field3 = FF;
  1892. roomrec[59].W.Field4 = FF;
  1893. roomrec[59].W.Field5 = FF;
  1894. roomrec[59].W.Field6 = CR;
  1895. /**************************/  /**************************/  
  1896.  
  1897.                              /* Room : 10 */
  1898. roomrec[60].N.Field1 = CF; 
  1899. roomrec[60].N.Field2 = CF;
  1900. roomrec[60].N.Field3 = CF;
  1901. roomrec[60].N.Field4 = CF;
  1902. roomrec[60].N.Field5 = CF;
  1903. roomrec[60].N.Field6 = CF;
  1904.  
  1905. roomrec[60].S.Field1 = CF; 
  1906. roomrec[60].S.Field2 = CF;
  1907. roomrec[60].S.Field3 = CF;
  1908. roomrec[60].S.Field4 = CF;
  1909. roomrec[60].S.Field5 = CF;
  1910. roomrec[60].S.Field6 = CF;
  1911.  
  1912. roomrec[60].E.Field1 = CL; 
  1913. roomrec[60].E.Field2 = ML;
  1914. roomrec[60].E.Field3 = FL;
  1915. roomrec[60].E.Field4 = FR;
  1916. roomrec[60].E.Field5 = MR;
  1917. roomrec[60].E.Field6 = CR;
  1918.  
  1919. roomrec[60].W.Field1 = CL; 
  1920. roomrec[60].W.Field2 = EMPTY;
  1921. roomrec[60].W.Field3 = EMPTY;
  1922. roomrec[60].W.Field4 = EMPTY;
  1923. roomrec[60].W.Field5 = MR;
  1924. roomrec[60].W.Field6 = CR;
  1925.  
  1926. /**************************/
  1927.  
  1928. /**************************/  
  1929.  
  1930.                              /* Room : 11 */
  1931. roomrec[61].N.Field1 = CF; 
  1932. roomrec[61].N.Field2 = CF;
  1933. roomrec[61].N.Field3 = CF;
  1934. roomrec[61].N.Field4 = CF;
  1935. roomrec[61].N.Field5 = CF;
  1936. roomrec[61].N.Field6 = CF;
  1937.  
  1938. roomrec[61].S.Field1 = CF; 
  1939. roomrec[61].S.Field2 = CF;
  1940. roomrec[61].S.Field3 = CF;
  1941. roomrec[61].S.Field4 = CF;
  1942. roomrec[61].S.Field5 = CF;
  1943. roomrec[61].S.Field6 = CF;
  1944.  
  1945. roomrec[61].E.Field1 = CL; 
  1946. roomrec[61].E.Field2 = ML;
  1947. roomrec[61].E.Field3 = EMPTY;
  1948. roomrec[61].E.Field4 = EMPTY;
  1949. roomrec[61].E.Field5 = MR;
  1950. roomrec[61].E.Field6 = CR;
  1951.  
  1952. roomrec[61].W.Field1 = CL; 
  1953. roomrec[61].W.Field2 = ML;
  1954. roomrec[61].W.Field3 = EMPTY;
  1955. roomrec[61].W.Field4 = FR;
  1956. roomrec[61].W.Field5 = MR;
  1957. roomrec[61].W.Field6 = CR;
  1958.  
  1959.  
  1960. /**************************/  
  1961.  
  1962.                              /* Room : 12 */
  1963. roomrec[62].N.Field1 = CF; 
  1964. roomrec[62].N.Field2 = CF;
  1965. roomrec[62].N.Field3 = CF;
  1966. roomrec[62].N.Field4 = CF;
  1967. roomrec[62].N.Field5 = CF;
  1968. roomrec[62].N.Field6 = CF;
  1969.  
  1970. roomrec[62].S.Field1 = CF; 
  1971. roomrec[62].S.Field2 = CF;
  1972. roomrec[62].S.Field3 = CF;
  1973. roomrec[62].S.Field4 = CF;
  1974. roomrec[62].S.Field5 = CF;
  1975. roomrec[62].S.Field6 = CF;
  1976.  
  1977. roomrec[62].E.Field1 = CL; 
  1978. roomrec[62].E.Field2 = EMPTY;
  1979. roomrec[62].E.Field3 = FF;
  1980. roomrec[62].E.Field4 = FF;
  1981. roomrec[62].E.Field5 = FF;
  1982. roomrec[62].E.Field6 = CR;
  1983.  
  1984. roomrec[62].W.Field1 = CL; 
  1985. roomrec[62].W.Field2 = ML;
  1986. roomrec[62].W.Field3 = FL;
  1987. roomrec[62].W.Field4 = FR;
  1988. roomrec[62].W.Field5 = MR;
  1989. roomrec[62].W.Field6 = CR;
  1990.  
  1991. /**************************/
  1992.  /**************************/  
  1993.  
  1994.                              /* Room : 13 */
  1995. roomrec[63].N.Field1 = MF; 
  1996. roomrec[63].N.Field2 = ML;
  1997. roomrec[63].N.Field3 = FF;
  1998. roomrec[63].N.Field4 = FF;
  1999. roomrec[63].N.Field5 = FF;
  2000. roomrec[63].N.Field6 = CR;
  2001.  
  2002. roomrec[63].S.Field1 = CL; 
  2003. roomrec[63].S.Field2 = ML;
  2004. roomrec[63].S.Field3 = EMPTY;
  2005. roomrec[63].S.Field4 = FR;
  2006. roomrec[63].S.Field5 = MR;
  2007. roomrec[63].S.Field6 = MF;
  2008.  
  2009. roomrec[63].E.Field1 = CF; 
  2010. roomrec[63].E.Field2 = CF;
  2011. roomrec[63].E.Field3 = CF;
  2012. roomrec[63].E.Field4 = CF;
  2013. roomrec[63].E.Field5 = CF;
  2014. roomrec[63].E.Field6 = CF;
  2015.  
  2016. roomrec[63].W.Field1 = MF; 
  2017. roomrec[63].W.Field2 = ML;
  2018. roomrec[63].W.Field3 = FL;
  2019. roomrec[63].W.Field4 = FR;
  2020. roomrec[63].W.Field5 = MR;
  2021. roomrec[63].W.Field6 = MF;
  2022.  
  2023. /**************************/
  2024.  
  2025. /**************************/  
  2026.  
  2027.                              /* Room : 14 */
  2028. roomrec[64].N.Field1 = CL; 
  2029. roomrec[64].N.Field2 = ML;
  2030. roomrec[64].N.Field3 = FL;
  2031. roomrec[64].N.Field4 = FR;
  2032. roomrec[64].N.Field5 = MR;
  2033. roomrec[64].N.Field6 = CR;
  2034.  
  2035. roomrec[64].S.Field1 = CL; 
  2036. roomrec[64].S.Field2 = ML;
  2037. roomrec[64].S.Field3 = FL;
  2038. roomrec[64].S.Field4 = FR;
  2039. roomrec[64].S.Field5 = MR;
  2040. roomrec[64].S.Field6 = CR;
  2041.  
  2042. roomrec[64].E.Field1 = CF; 
  2043. roomrec[64].E.Field2 = CF;
  2044. roomrec[64].E.Field3 = CF;
  2045. roomrec[64].E.Field4 = CF;
  2046. roomrec[64].E.Field5 = CF;
  2047. roomrec[64].E.Field6 = CF;
  2048.  
  2049. roomrec[64].W.Field1 = CF; 
  2050. roomrec[64].W.Field2 = CF;
  2051. roomrec[64].W.Field3 = CF;
  2052. roomrec[64].W.Field4 = CF;
  2053. roomrec[64].W.Field5 = CF;
  2054. roomrec[64].W.Field6 = CF;
  2055.  
  2056.  
  2057. /**************************/  
  2058. /**************************/  
  2059.  
  2060.                              /* Room : 15 */
  2061. roomrec[65].N.Field1 = CL; 
  2062. roomrec[65].N.Field2 = ML;
  2063. roomrec[65].N.Field3 = FL;
  2064. roomrec[65].N.Field4 = FR;
  2065. roomrec[65].N.Field5 = MR;
  2066. roomrec[65].N.Field6 = CR;
  2067.  
  2068. roomrec[65].S.Field1 = CL; 
  2069. roomrec[65].S.Field2 = ML;
  2070. roomrec[65].S.Field3 = FL;
  2071. roomrec[65].S.Field4 = FR;
  2072. roomrec[65].S.Field5 = MR;
  2073. roomrec[65].S.Field6 = CR;
  2074.  
  2075. roomrec[65].E.Field1 = CF; 
  2076. roomrec[65].E.Field2 = CF;
  2077. roomrec[65].E.Field3 = CF;
  2078. roomrec[65].E.Field4 = CF;
  2079. roomrec[65].E.Field5 = CF;
  2080. roomrec[65].E.Field6 = CF;
  2081.  
  2082. roomrec[65].W.Field1 = CF; 
  2083. roomrec[65].W.Field2 = CF;
  2084. roomrec[65].W.Field3 = CF;
  2085. roomrec[65].W.Field4 = CF;
  2086. roomrec[65].W.Field5 = CF;
  2087. roomrec[65].W.Field6 = CF;
  2088.  
  2089.  
  2090. /**************************/  
  2091. /**************************/  
  2092.  
  2093.                              /* Room : 16 */
  2094. roomrec[66].N.Field1 = CL; 
  2095. roomrec[66].N.Field2 = ML;
  2096. roomrec[66].N.Field3 = FL;
  2097. roomrec[66].N.Field4 = FR;
  2098. roomrec[66].N.Field5 = MR;
  2099. roomrec[66].N.Field6 = CR;
  2100.  
  2101. roomrec[66].S.Field1 = CL; 
  2102. roomrec[66].S.Field2 = FF;
  2103. roomrec[66].S.Field3 = FF;
  2104. roomrec[66].S.Field4 = FF;
  2105. roomrec[66].S.Field5 = FF;
  2106. roomrec[66].S.Field6 = CR;
  2107.  
  2108. roomrec[66].E.Field1 = CF; 
  2109. roomrec[66].E.Field2 = CF;
  2110. roomrec[66].E.Field3 = CF;
  2111. roomrec[66].E.Field4 = CF;
  2112. roomrec[66].E.Field5 = CF;
  2113. roomrec[66].E.Field6 = CF;
  2114.  
  2115. roomrec[66].W.Field1 = CF; 
  2116. roomrec[66].W.Field2 = CF;
  2117. roomrec[66].W.Field3 = CF;
  2118. roomrec[66].W.Field4 = CF;
  2119. roomrec[66].W.Field5 = CF;
  2120. roomrec[66].W.Field6 = CF;
  2121.  
  2122.  
  2123. /**************************/  
  2124.  
  2125.                              /* Room : 17 */
  2126. roomrec[67].N.Field1 = CL; 
  2127. roomrec[67].N.Field2 = ML;
  2128. roomrec[67].N.Field3 = FL;
  2129. roomrec[67].N.Field4 = EMPTY;
  2130. roomrec[67].N.Field5 = MR;
  2131. roomrec[67].N.Field6 = CR;
  2132.  
  2133. roomrec[67].S.Field1 = CL; 
  2134. roomrec[67].S.Field2 = ML;
  2135. roomrec[67].S.Field3 = FL;
  2136. roomrec[67].S.Field4 = FR;
  2137. roomrec[67].S.Field5 = MR;
  2138. roomrec[67].S.Field6 = CR;
  2139.  
  2140. roomrec[67].E.Field1 = CF; 
  2141. roomrec[67].E.Field2 = CF;
  2142. roomrec[67].E.Field3 = CF;
  2143. roomrec[67].E.Field4 = CF;
  2144. roomrec[67].E.Field5 = CF;
  2145. roomrec[67].E.Field6 = CF;
  2146.  
  2147. roomrec[67].W.Field1 = CF; 
  2148. roomrec[67].W.Field2 = CF;
  2149. roomrec[67].W.Field3 = CF;
  2150. roomrec[67].W.Field4 = CF;
  2151. roomrec[67].W.Field5 = CF;
  2152. roomrec[67].W.Field6 = CF;
  2153.  
  2154. /**************************/  
  2155.  
  2156.                              /* Room : 18 */
  2157. roomrec[68].N.Field1 = CF; 
  2158. roomrec[68].N.Field2 = CF;
  2159. roomrec[68].N.Field3 = CF;
  2160. roomrec[68].N.Field4 = CF;
  2161. roomrec[68].N.Field5 = CF;
  2162. roomrec[68].N.Field6 = CF;
  2163.  
  2164. roomrec[68].S.Field1 = FF; 
  2165. roomrec[68].S.Field2 = FL;
  2166. roomrec[68].S.Field3 = EMPTY;
  2167. roomrec[68].S.Field4 = FR;
  2168. roomrec[68].S.Field5 = MR;
  2169. roomrec[68].S.Field6 = CR;
  2170.  
  2171. roomrec[68].E.Field1 = CL; 
  2172. roomrec[68].E.Field2 = ML;
  2173. roomrec[68].E.Field3 = EMPTY;
  2174. roomrec[68].E.Field4 = EMPTY;
  2175. roomrec[68].E.Field5 = EMPTY;
  2176. roomrec[68].E.Field6 = EMPTY;
  2177.  
  2178. roomrec[68].W.Field1 = CF; 
  2179. roomrec[68].W.Field2 = CF;
  2180. roomrec[68].W.Field3 = CF;
  2181. roomrec[68].W.Field4 = CF;
  2182. roomrec[68].W.Field5 = CF;
  2183. roomrec[68].W.Field6 = CF;
  2184. /**************************/  
  2185.  
  2186.                              /* Room : 19 */
  2187. roomrec[69].N.Field1 = CF; 
  2188. roomrec[69].N.Field2 = CF;
  2189. roomrec[69].N.Field3 = CF;
  2190. roomrec[69].N.Field4 = CF;
  2191. roomrec[69].N.Field5 = CF;
  2192. roomrec[69].N.Field6 = CF;
  2193.  
  2194. roomrec[69].S.Field1 = MF; 
  2195. roomrec[69].S.Field2 = ML;
  2196. roomrec[69].S.Field3 = FF;
  2197. roomrec[69].S.Field4 = FF;
  2198. roomrec[69].S.Field5 = EMPTY;
  2199. roomrec[69].S.Field6 = EMPTY;
  2200.  
  2201. roomrec[69].E.Field1 = CL; 
  2202. roomrec[69].E.Field2 = EMPTY;
  2203. roomrec[69].E.Field3 = EMPTY;
  2204. roomrec[69].E.Field4 = EMPTY;
  2205. roomrec[69].E.Field5 = MR;
  2206. roomrec[69].E.Field6 = MF;
  2207.  
  2208. roomrec[69].W.Field1 = FF; 
  2209. roomrec[69].W.Field2 = FF;
  2210. roomrec[69].W.Field3 = FF;
  2211. roomrec[69].W.Field4 = FF;
  2212. roomrec[69].W.Field5 = MR;
  2213. roomrec[69].W.Field6 = CR;
  2214. /**************************/  
  2215.  
  2216.                              /* Room : 20 */
  2217. roomrec[70].N.Field1 = MF; 
  2218. roomrec[70].N.Field2 = ML;
  2219. roomrec[70].N.Field3 = FL;
  2220. roomrec[70].N.Field4 = FR;
  2221. roomrec[70].N.Field5 = FF;
  2222. roomrec[70].N.Field6 = FF;
  2223.  
  2224. roomrec[70].S.Field1 = CF; 
  2225. roomrec[70].S.Field2 = CF;
  2226. roomrec[70].S.Field3 = CF;
  2227. roomrec[70].S.Field4 = CF;
  2228. roomrec[70].S.Field5 = CF;
  2229. roomrec[70].S.Field6 = CF;
  2230.  
  2231. roomrec[70].E.Field1 = EMPTY; 
  2232. roomrec[70].E.Field2 = EMPTY;
  2233. roomrec[70].E.Field3 = FF;
  2234. roomrec[70].E.Field4 = FF;
  2235. roomrec[70].E.Field5 = FF;
  2236. roomrec[70].E.Field6 = CR;
  2237.  
  2238. roomrec[70].W.Field1 = CL; 
  2239. roomrec[70].W.Field2 = EMPTY;
  2240. roomrec[70].W.Field3 = EMPTY;
  2241. roomrec[70].W.Field4 = FR;
  2242. roomrec[70].W.Field5 = MR;
  2243. roomrec[70].W.Field6 = MF;
  2244. /**************************/  
  2245.  
  2246. /**************************/  
  2247.  
  2248.                              /* Room : 50 */
  2249. roomrec[71].N.Field1 = EMPTY; 
  2250. roomrec[71].N.Field2 = EMPTY;
  2251. roomrec[71].N.Field3 = FF;
  2252. roomrec[71].N.Field4 = FF;
  2253. roomrec[71].N.Field5 = FF;
  2254. roomrec[71].N.Field6 = CR;
  2255.  
  2256. roomrec[71].S.Field1 = CL; 
  2257. roomrec[71].S.Field2 = ML;
  2258. roomrec[71].S.Field3 = FF;
  2259. roomrec[71].S.Field4 = FF;
  2260. roomrec[71].S.Field5 = MR;
  2261. roomrec[71].S.Field6 = MF;
  2262.  
  2263. roomrec[71].E.Field1 = CF; 
  2264. roomrec[71].E.Field2 = CF;
  2265. roomrec[71].E.Field3 = CF;
  2266. roomrec[71].E.Field4 = CF;
  2267. roomrec[71].E.Field5 = CF;
  2268. roomrec[71].E.Field6 = CF;
  2269.  
  2270. roomrec[71].W.Field1 = MF; 
  2271. roomrec[71].W.Field2 = ML;
  2272. roomrec[71].W.Field3 = EMPTY;
  2273. roomrec[71].W.Field4 = EMPTY;
  2274. roomrec[71].W.Field5 = EMPTY;
  2275. roomrec[71].W.Field6 = EMPTY;
  2276. /**********************************/
  2277.  
  2278.  
  2279.                                 /* Room 1 */
  2280. roomrec[72].N.Field1 = CL; 
  2281. roomrec[72].N.Field2 = FF;
  2282. roomrec[72].N.Field3 = FL;
  2283. roomrec[72].N.Field4 = EMPTY;
  2284. roomrec[72].N.Field5 = MR;
  2285. roomrec[72].N.Field6 = CR;
  2286.  
  2287. roomrec[72].S.Field1 = CL; 
  2288. roomrec[72].S.Field2 = EMPTY;
  2289. roomrec[72].S.Field3 = EMPTY;
  2290. roomrec[72].S.Field4 = FR;
  2291. roomrec[72].S.Field5 = MR;
  2292. roomrec[72].S.Field6 = CR;
  2293.  
  2294. roomrec[72].E.Field1 = CF; 
  2295. roomrec[72].E.Field2 = CF;
  2296. roomrec[72].E.Field3 = CF;
  2297. roomrec[72].E.Field4 = CF;
  2298. roomrec[72].E.Field5 = CF;
  2299. roomrec[72].E.Field6 = CF;
  2300.  
  2301. roomrec[72].W.Field1 = CF; 
  2302. roomrec[72].W.Field2 = CF;
  2303. roomrec[72].W.Field3 = CF;
  2304. roomrec[72].W.Field4 = CF;
  2305. roomrec[72].W.Field5 = CF;
  2306. roomrec[72].W.Field6 = CF;
  2307.  
  2308. /******************************/
  2309.                                  /* room 2 */
  2310. roomrec[73].N.Field1 = CL; 
  2311. roomrec[73].N.Field2 = ML;
  2312. roomrec[73].N.Field3 = FL;
  2313. roomrec[73].N.Field4 = FR;
  2314. roomrec[73].N.Field5 = MR;
  2315. roomrec[73].N.Field6 = CR;
  2316.  
  2317. roomrec[73].S.Field1 = CL; 
  2318. roomrec[73].S.Field2 = ML;
  2319. roomrec[73].S.Field3 = FL;
  2320. roomrec[73].S.Field4 = FR;
  2321. roomrec[73].S.Field5 = MR;
  2322. roomrec[73].S.Field6 = CR;
  2323.  
  2324. roomrec[73].E.Field1 = CF; 
  2325. roomrec[73].E.Field2 = CF;
  2326. roomrec[73].E.Field3 = CF;
  2327. roomrec[73].E.Field4 = CF;
  2328. roomrec[73].E.Field5 = CF;
  2329. roomrec[73].E.Field6 = CF;
  2330.  
  2331. roomrec[73].W.Field1 = CF; 
  2332. roomrec[73].W.Field2 = CF;
  2333. roomrec[73].W.Field3 = CF;
  2334. roomrec[73].W.Field4 = CF;
  2335. roomrec[73].W.Field5 = CF;
  2336. roomrec[73].W.Field6 = CF;
  2337.  
  2338.  
  2339. /******************************/
  2340.                                /* room 3 */
  2341.  
  2342. roomrec[74].N.Field1 = CL; 
  2343. roomrec[74].N.Field2 = ML;
  2344. roomrec[74].N.Field3 = FL;
  2345. roomrec[74].N.Field4 = FR;
  2346. roomrec[74].N.Field5 = MR;
  2347. roomrec[74].N.Field6 = CR;
  2348.  
  2349. roomrec[74].S.Field1 = CL; 
  2350. roomrec[74].S.Field2 = ML;
  2351. roomrec[74].S.Field3 = EMPTY;
  2352. roomrec[74].S.Field4 = FR;
  2353. roomrec[74].S.Field5 = MR;
  2354. roomrec[74].S.Field6 = CR;
  2355.  
  2356. roomrec[74].E.Field1 = CF; 
  2357. roomrec[74].E.Field2 = CF;
  2358. roomrec[74].E.Field3 = CF;
  2359. roomrec[74].E.Field4 = CF;
  2360. roomrec[74].E.Field5 = CF;
  2361. roomrec[74].E.Field6 = CF;
  2362.  
  2363. roomrec[74].W.Field1 = CF; 
  2364. roomrec[74].W.Field2 = CF;
  2365. roomrec[74].W.Field3 = CF;
  2366. roomrec[74].W.Field4 = CF;
  2367. roomrec[74].W.Field5 = CF;
  2368. roomrec[74].W.Field6 = CF;
  2369.  
  2370.  
  2371. /***************************/
  2372.                             /* Room 4 */
  2373. roomrec[75].N.Field1 = CF; 
  2374. roomrec[75].N.Field2 = CF;
  2375. roomrec[75].N.Field3 = CF;
  2376. roomrec[75].N.Field4 = CF;
  2377. roomrec[75].N.Field5 = CF;
  2378. roomrec[75].N.Field6 = CF;
  2379.  
  2380. roomrec[75].S.Field1 = CF; 
  2381. roomrec[75].S.Field2 = CF;
  2382. roomrec[75].S.Field3 = CF;
  2383. roomrec[75].S.Field4 = CF;
  2384. roomrec[75].S.Field5 = CF;
  2385. roomrec[75].S.Field6 = CF;
  2386.  
  2387. roomrec[75].E.Field1 = CL; 
  2388. roomrec[75].E.Field2 = EMPTY;
  2389. roomrec[75].E.Field3 = EMPTY;
  2390. roomrec[75].E.Field4 = FR;
  2391. roomrec[75].E.Field5 = MR;
  2392. roomrec[75].E.Field6 = CR;
  2393.  
  2394. roomrec[75].W.Field1 = CF; 
  2395. roomrec[75].W.Field2 = CF;
  2396. roomrec[75].W.Field3 = CF;
  2397. roomrec[75].W.Field4 = CF;
  2398. roomrec[75].W.Field5 = CF;
  2399. roomrec[75].W.Field6 = CF;
  2400.  
  2401. /****************************/
  2402.                              /* room 5 */
  2403. roomrec[76].N.Field1 = MF; 
  2404. roomrec[76].N.Field2 = ML;
  2405. roomrec[76].N.Field3 = FL;
  2406. roomrec[76].N.Field4 = FR;
  2407. roomrec[76].N.Field5 = MR;
  2408. roomrec[76].N.Field6 = MF;
  2409.  
  2410. roomrec[76].S.Field1 = CF; 
  2411. roomrec[76].S.Field2 = CF;
  2412. roomrec[76].S.Field3 = CF;
  2413. roomrec[76].S.Field4 = CF;
  2414. roomrec[76].S.Field5 = CF;
  2415. roomrec[76].S.Field6 = CF;
  2416.  
  2417. roomrec[76].E.Field1 = MF; 
  2418. roomrec[76].E.Field2 = ML;
  2419. roomrec[76].E.Field3 = FF;
  2420. roomrec[76].E.Field4 = FF;
  2421. roomrec[76].E.Field5 = MR;
  2422. roomrec[76].E.Field6 = CR;
  2423.  
  2424. roomrec[76].W.Field1 = CL; 
  2425. roomrec[76].W.Field2 = ML;
  2426. roomrec[76].W.Field3 = FF;
  2427. roomrec[76].W.Field4 = FF;
  2428. roomrec[76].W.Field5 = MR;
  2429. roomrec[76].W.Field6 = MF;
  2430.  
  2431. /**************************/  
  2432.  
  2433.                              /* Room : 6 */
  2434. roomrec[77].N.Field1 = CF; 
  2435. roomrec[77].N.Field2 = CF;
  2436. roomrec[77].N.Field3 = CF;
  2437. roomrec[77].N.Field4 = CF;
  2438. roomrec[77].N.Field5 = CF;
  2439. roomrec[77].N.Field6 = CF;
  2440.  
  2441. roomrec[77].S.Field1 = CF; 
  2442. roomrec[77].S.Field2 = CF;
  2443. roomrec[77].S.Field3 = CF;
  2444. roomrec[77].S.Field4 = CF;
  2445. roomrec[77].S.Field5 = CF;
  2446. roomrec[77].S.Field6 = CF;
  2447.  
  2448. roomrec[77].E.Field1 = CF; 
  2449. roomrec[77].E.Field2 = CF;
  2450. roomrec[77].E.Field3 = CF;
  2451. roomrec[77].E.Field4 = CF;
  2452. roomrec[77].E.Field5 = CF;
  2453. roomrec[77].E.Field6 = CF;
  2454.  
  2455. roomrec[77].W.Field1 = CL; 
  2456. roomrec[77].W.Field2 = ML;
  2457. roomrec[77].W.Field3 = FL;
  2458. roomrec[77].W.Field4 = FR;
  2459. roomrec[77].W.Field5 = FF;
  2460. roomrec[77].W.Field6 = CR;
  2461.  
  2462. /**************************/
  2463. /**************************/  
  2464.  
  2465.                              /* Room : 7 */
  2466. roomrec[78].N.Field1 = CL; 
  2467. roomrec[78].N.Field2 = ML;
  2468. roomrec[78].N.Field3 = FL;
  2469. roomrec[78].N.Field4 = FR;
  2470. roomrec[78].N.Field5 = MR;
  2471. roomrec[78].N.Field6 = CR;
  2472.  
  2473. roomrec[78].S.Field1 = CL; 
  2474. roomrec[78].S.Field2 = ML;
  2475. roomrec[78].S.Field3 = FL;
  2476. roomrec[78].S.Field4 = EMPTY;
  2477. roomrec[78].S.Field5 = MR;
  2478. roomrec[78].S.Field6 = CR;
  2479.  
  2480. roomrec[78].E.Field1 = CF; 
  2481. roomrec[78].E.Field2 = CF;
  2482. roomrec[78].E.Field3 = CF;
  2483. roomrec[78].E.Field4 = CF;
  2484. roomrec[78].E.Field5 = CF;
  2485. roomrec[78].E.Field6 = CF;
  2486.  
  2487. roomrec[78].W.Field1 = CF; 
  2488. roomrec[78].W.Field2 = CF;
  2489. roomrec[78].W.Field3 = CF;
  2490. roomrec[78].W.Field4 = CF;
  2491. roomrec[78].W.Field5 = CF;
  2492. roomrec[78].W.Field6 = CF;
  2493.  
  2494. /**************************/
  2495.  
  2496. /**************************/  
  2497.  
  2498.                              /* Room : 8 */
  2499. roomrec[79].N.Field1 = CL; 
  2500. roomrec[79].N.Field2 = ML;
  2501. roomrec[79].N.Field3 = FF;
  2502. roomrec[79].N.Field4 = FF;
  2503. roomrec[79].N.Field5 = FF;
  2504. roomrec[79].N.Field6 = FF;
  2505.  
  2506. roomrec[79].S.Field1 = MF; 
  2507. roomrec[79].S.Field2 = ML;
  2508. roomrec[79].S.Field3 = FL;
  2509. roomrec[79].S.Field4 = FR;
  2510. roomrec[79].S.Field5 = MR;
  2511. roomrec[79].S.Field6 = CR;
  2512.  
  2513. roomrec[79].E.Field1 = EMPTY; 
  2514. roomrec[79].E.Field2 = EMPTY;
  2515. roomrec[79].E.Field3 = FF;
  2516. roomrec[79].E.Field4 = FF;
  2517. roomrec[79].E.Field5 = MR;
  2518. roomrec[79].E.Field6 = MF;
  2519.  
  2520. roomrec[79].W.Field1 = CF; 
  2521. roomrec[79].W.Field2 = CF;
  2522. roomrec[79].W.Field3 = CF;
  2523. roomrec[79].W.Field4 = CF;
  2524. roomrec[79].W.Field5 = CF;
  2525. roomrec[79].W.Field6 = CF;
  2526.  
  2527.  
  2528. /**************************/  
  2529.  
  2530.                              /* Room : 9 */
  2531. roomrec[80].N.Field1 = FF; 
  2532. roomrec[80].N.Field2 = FF;
  2533. roomrec[80].N.Field3 = FF;
  2534. roomrec[80].N.Field4 = FF;
  2535. roomrec[80].N.Field5 = EMPTY;
  2536. roomrec[80].N.Field6 = CR;
  2537.  
  2538. roomrec[80].S.Field1 = CF; 
  2539. roomrec[80].S.Field2 = CF;
  2540. roomrec[80].S.Field3 = CF;
  2541. roomrec[80].S.Field4 = CF;
  2542. roomrec[80].S.Field5 = CF;
  2543. roomrec[80].S.Field6 = CF;
  2544.  
  2545. roomrec[80].E.Field1 = CF; 
  2546. roomrec[80].E.Field2 = CF;
  2547. roomrec[80].E.Field3 = CF;
  2548. roomrec[80].E.Field4 = CF;
  2549. roomrec[80].E.Field5 = CF;
  2550. roomrec[80].E.Field6 = CF;
  2551.  
  2552. roomrec[80].W.Field1 = CL; 
  2553. roomrec[80].W.Field2 = FF;
  2554. roomrec[80].W.Field3 = FF;
  2555. roomrec[80].W.Field4 = FF;
  2556. roomrec[80].W.Field5 = FF;
  2557. roomrec[80].W.Field6 = FF;
  2558. /**************************/  /**************************/  
  2559.  
  2560.                              /* Room : 10 */
  2561. roomrec[81].N.Field1 = CL; 
  2562. roomrec[81].N.Field2 = EMPTY;
  2563. roomrec[81].N.Field3 = EMPTY;
  2564. roomrec[81].N.Field4 = EMPTY;
  2565. roomrec[81].N.Field5 = MR;
  2566. roomrec[81].N.Field6 = CR;
  2567.  
  2568. roomrec[81].S.Field1 = CF; 
  2569. roomrec[81].S.Field2 = CF;
  2570. roomrec[81].S.Field3 = CF;
  2571. roomrec[81].S.Field4 = CF;
  2572. roomrec[81].S.Field5 = CF;
  2573. roomrec[81].S.Field6 = CF;
  2574.  
  2575. roomrec[81].E.Field1 = CF; 
  2576. roomrec[81].E.Field2 = CF;
  2577. roomrec[81].E.Field3 = CF;
  2578. roomrec[81].E.Field4 = CF;
  2579. roomrec[81].E.Field5 = CF;
  2580. roomrec[81].E.Field6 = CF;
  2581.  
  2582. roomrec[81].W.Field1 = CF; 
  2583. roomrec[81].W.Field2 = CF;
  2584. roomrec[81].W.Field3 = CF;
  2585. roomrec[81].W.Field4 = CF;
  2586. roomrec[81].W.Field5 = CF;
  2587. roomrec[81].W.Field6 = CF;
  2588.  
  2589. /**************************/
  2590.  
  2591. /**************************/  
  2592.  
  2593.                              /* Room : 11 */
  2594. roomrec[82].N.Field1 = CL; 
  2595. roomrec[82].N.Field2 = ML;
  2596. roomrec[82].N.Field3 = EMPTY;
  2597. roomrec[82].N.Field4 = FR;
  2598. roomrec[82].N.Field5 = MR;
  2599. roomrec[82].N.Field6 = MF;
  2600.  
  2601. roomrec[82].S.Field1 = EMPTY; 
  2602. roomrec[82].S.Field2 = EMPTY;
  2603. roomrec[82].S.Field3 = FF;
  2604. roomrec[82].S.Field4 = FF;
  2605. roomrec[82].S.Field5 = MR;
  2606. roomrec[82].S.Field6 = CR;
  2607.  
  2608. roomrec[82].E.Field1 = MF; 
  2609. roomrec[82].E.Field2 = ML;
  2610. roomrec[82].E.Field3 = FL;
  2611. roomrec[82].E.Field4 = EMPTY;
  2612. roomrec[82].E.Field5 = FR;
  2613. roomrec[82].E.Field6 = FF;
  2614.  
  2615. roomrec[82].W.Field1 = CF; 
  2616. roomrec[82].W.Field2 = CF;
  2617. roomrec[82].W.Field3 = CF;
  2618. roomrec[82].W.Field4 = CF;
  2619. roomrec[82].W.Field5 = CF;
  2620. roomrec[82].W.Field6 = CF;
  2621.  
  2622.  
  2623. /**************************/  
  2624.  
  2625.                              /* Room : 12 */
  2626. roomrec[83].N.Field1 = CF; 
  2627. roomrec[83].N.Field2 = CF;
  2628. roomrec[83].N.Field3 = CF;
  2629. roomrec[83].N.Field4 = CF;
  2630. roomrec[83].N.Field5 = CF;
  2631. roomrec[83].N.Field6 = CF;
  2632.  
  2633. roomrec[83].S.Field1 = MF; 
  2634. roomrec[83].S.Field2 = ML;
  2635. roomrec[83].S.Field3 = EMPTY;
  2636. roomrec[83].S.Field4 = EMPTY;
  2637. roomrec[83].S.Field5 = FR;
  2638. roomrec[83].S.Field6 = FF;
  2639.  
  2640. roomrec[83].E.Field1 = CL; 
  2641. roomrec[83].E.Field2 = ML;
  2642. roomrec[83].E.Field3 = FL;
  2643. roomrec[83].E.Field4 = EMPTY;
  2644. roomrec[83].E.Field5 = MR;
  2645. roomrec[83].E.Field6 = MF;
  2646.  
  2647. roomrec[83].W.Field1 = FF; 
  2648. roomrec[83].W.Field2 = FF;
  2649. roomrec[83].W.Field3 = FF;
  2650. roomrec[83].W.Field4 = FF;
  2651. roomrec[83].W.Field5 = FF;
  2652. roomrec[83].W.Field6 = CR;
  2653.  
  2654. /**************************/
  2655.  /**************************/  
  2656.  
  2657.                              /* Room : 13 */
  2658. roomrec[84].N.Field1 = CF; 
  2659. roomrec[84].N.Field2 = CF;
  2660. roomrec[84].N.Field3 = CF;
  2661. roomrec[84].N.Field4 = CF;
  2662. roomrec[84].N.Field5 = CF;
  2663. roomrec[84].N.Field6 = CF;
  2664.  
  2665. roomrec[84].S.Field1 = CF; 
  2666. roomrec[84].S.Field2 = CF;
  2667. roomrec[84].S.Field3 = CF;
  2668. roomrec[84].S.Field4 = CF;
  2669. roomrec[84].S.Field5 = CF;
  2670. roomrec[84].S.Field6 = CF;
  2671.  
  2672. roomrec[84].E.Field1 = CL; 
  2673. roomrec[84].E.Field2 = ML;
  2674. roomrec[84].E.Field3 = FL;
  2675. roomrec[84].E.Field4 = FR;
  2676. roomrec[84].E.Field5 = FF;
  2677. roomrec[84].E.Field6 = CR;
  2678.  
  2679. roomrec[84].W.Field1 = CL; 
  2680. roomrec[84].W.Field2 = EMPTY;
  2681. roomrec[84].W.Field3 = EMPTY;
  2682. roomrec[84].W.Field4 = EMPTY;
  2683. roomrec[84].W.Field5 = MR;
  2684. roomrec[84].W.Field6 = CR;
  2685.  
  2686. /**************************/
  2687.  
  2688. /**************************/  
  2689.  
  2690.                              /* Room : 14 */
  2691. roomrec[85].N.Field1 = CF; 
  2692. roomrec[85].N.Field2 = CF;
  2693. roomrec[85].N.Field3 = CF;
  2694. roomrec[85].N.Field4 = CF;
  2695. roomrec[85].N.Field5 = CF;
  2696. roomrec[85].N.Field6 = CF;
  2697.  
  2698. roomrec[85].S.Field1 = MF; 
  2699. roomrec[85].S.Field2 = ML;
  2700. roomrec[85].S.Field3 = EMPTY;
  2701. roomrec[85].S.Field4 = EMPTY;
  2702. roomrec[85].S.Field5 = MR;
  2703. roomrec[85].S.Field6 = MF;
  2704.  
  2705. roomrec[85].E.Field1 = CL; 
  2706. roomrec[85].E.Field2 = ML;
  2707. roomrec[85].E.Field3 = FL;
  2708. roomrec[85].E.Field4 = EMPTY;
  2709. roomrec[85].E.Field5 = MR;
  2710. roomrec[85].E.Field6 = MF;
  2711.  
  2712. roomrec[85].W.Field1 = MF; 
  2713. roomrec[85].W.Field2 = ML;
  2714. roomrec[85].W.Field3 = EMPTY;
  2715. roomrec[85].W.Field4 = FR;
  2716. roomrec[85].W.Field5 = MR;
  2717. roomrec[85].W.Field6 = CR;
  2718.  
  2719.  
  2720. /**************************/  
  2721. /**************************/  
  2722.  
  2723.                              /* Room : 15 */
  2724. roomrec[86].N.Field1 = CF; 
  2725. roomrec[86].N.Field2 = CF;
  2726. roomrec[86].N.Field3 = CF;
  2727. roomrec[86].N.Field4 = CF;
  2728. roomrec[86].N.Field5 = CF;
  2729. roomrec[86].N.Field6 = CF;
  2730.  
  2731. roomrec[86].S.Field1 = CF; 
  2732. roomrec[86].S.Field2 = CF;
  2733. roomrec[86].S.Field3 = CF;
  2734. roomrec[86].S.Field4 = CF;
  2735. roomrec[86].S.Field5 = CF;
  2736. roomrec[86].S.Field6 = CF;
  2737.  
  2738. roomrec[86].E.Field1 = CL; 
  2739. roomrec[86].E.Field2 = ML;
  2740. roomrec[86].E.Field3 = FL;
  2741. roomrec[86].E.Field4 = FR;
  2742. roomrec[86].E.Field5 = FF;
  2743. roomrec[86].E.Field6 = CR;
  2744.  
  2745. roomrec[86].W.Field1 = CL; 
  2746. roomrec[86].W.Field2 = FF;
  2747. roomrec[86].W.Field3 = FL;
  2748. roomrec[86].W.Field4 = FR;
  2749. roomrec[86].W.Field5 = MR;
  2750. roomrec[86].W.Field6 = CR;
  2751.  
  2752.  
  2753. /**************************/  
  2754. /**************************/  
  2755.  
  2756.                              /* Room : 14 */
  2757. roomrec[87].N.Field1 = CF; 
  2758. roomrec[87].N.Field2 = CF;
  2759. roomrec[87].N.Field3 = CF;
  2760. roomrec[87].N.Field4 = CF;
  2761. roomrec[87].N.Field5 = CF;
  2762. roomrec[87].N.Field6 = CF;
  2763.  
  2764. roomrec[87].S.Field1 = MF; 
  2765. roomrec[87].S.Field2 = ML;
  2766. roomrec[87].S.Field3 = EMPTY;
  2767. roomrec[87].S.Field4 = EMPTY;
  2768. roomrec[87].S.Field5 = MR;
  2769. roomrec[87].S.Field6 = MF;
  2770.  
  2771. roomrec[87].E.Field1 = CL; 
  2772. roomrec[87].E.Field2 = ML;
  2773. roomrec[87].E.Field3 = FL;
  2774. roomrec[87].E.Field4 = EMPTY;
  2775. roomrec[87].E.Field5 = MR;
  2776. roomrec[87].E.Field6 = MF;
  2777.  
  2778. roomrec[87].W.Field1 = MF; 
  2779. roomrec[87].W.Field2 = ML;
  2780. roomrec[87].W.Field3 = EMPTY;
  2781. roomrec[87].W.Field4 = FR;
  2782. roomrec[87].W.Field5 = MR;
  2783. roomrec[87].W.Field6 = CR;
  2784.  
  2785.  
  2786. /**************************/  
  2787.  
  2788.                              /* Room : 17 */
  2789. roomrec[88].N.Field1 = CF; 
  2790. roomrec[88].N.Field2 = CF;
  2791. roomrec[88].N.Field3 = CF;
  2792. roomrec[88].N.Field4 = CF;
  2793. roomrec[88].N.Field5 = CF;
  2794. roomrec[88].N.Field6 = CF;
  2795.  
  2796. roomrec[88].S.Field1 = CF; 
  2797. roomrec[88].S.Field2 = CF;
  2798. roomrec[88].S.Field3 = CF;
  2799. roomrec[88].S.Field4 = CF;
  2800. roomrec[88].S.Field5 = CF;
  2801. roomrec[88].S.Field6 = CF;
  2802.  
  2803. roomrec[88].E.Field1 = CL; 
  2804. roomrec[88].E.Field2 = ML;
  2805. roomrec[88].E.Field3 = FF;
  2806. roomrec[88].E.Field4 = FF;
  2807. roomrec[88].E.Field5 = FF;
  2808. roomrec[88].E.Field6 = CR;
  2809.  
  2810. roomrec[88].W.Field1 = CL; 
  2811. roomrec[88].W.Field2 = FF;
  2812. roomrec[88].W.Field3 = FL;
  2813. roomrec[88].W.Field4 = FR;
  2814. roomrec[88].W.Field5 = MR;
  2815. roomrec[88].W.Field6 = CR;
  2816.  
  2817. /**************************/  
  2818.  
  2819.                              /* Room : 18 */
  2820. roomrec[89].N.Field1 = CF; 
  2821. roomrec[89].N.Field2 = CF;
  2822. roomrec[89].N.Field3 = CF;
  2823. roomrec[89].N.Field4 = CF;
  2824. roomrec[89].N.Field5 = CF;
  2825. roomrec[89].N.Field6 = CF;
  2826.  
  2827. roomrec[89].S.Field1 = CL; 
  2828. roomrec[89].S.Field2 = ML;
  2829. roomrec[89].S.Field3 = FL;
  2830. roomrec[89].S.Field4 = EMPTY;
  2831. roomrec[89].S.Field5 = MR;
  2832. roomrec[89].S.Field6 = MF;
  2833.  
  2834. roomrec[89].E.Field1 = CF; 
  2835. roomrec[89].E.Field2 = CF;
  2836. roomrec[89].E.Field3 = CF;
  2837. roomrec[89].E.Field4 = CF;
  2838. roomrec[89].E.Field5 = CF;
  2839. roomrec[89].E.Field6 = CF;
  2840.  
  2841. roomrec[89].W.Field1 = MF; 
  2842. roomrec[89].W.Field2 = ML;
  2843. roomrec[89].W.Field3 = EMPTY;
  2844. roomrec[89].W.Field4 = FR;
  2845. roomrec[89].W.Field5 = MR;
  2846. roomrec[89].W.Field6 = CR;
  2847. /**************************/  
  2848.  
  2849.                              /* Room : 19 */
  2850. roomrec[90].N.Field1 = CL; 
  2851. roomrec[90].N.Field2 = ML;
  2852. roomrec[90].N.Field3 = FL;
  2853. roomrec[90].N.Field4 = FR;
  2854. roomrec[90].N.Field5 = MR;
  2855. roomrec[90].N.Field6 = CR;
  2856.  
  2857. roomrec[90].S.Field1 = CL; 
  2858. roomrec[90].S.Field2 = ML;
  2859. roomrec[90].S.Field3 = FL;
  2860. roomrec[90].S.Field4 = FR;
  2861. roomrec[90].S.Field5 = MR;
  2862. roomrec[90].S.Field6 = CR;
  2863.  
  2864. roomrec[90].E.Field1 = CF; 
  2865. roomrec[90].E.Field2 = CF;
  2866. roomrec[90].E.Field3 = CF;
  2867. roomrec[90].E.Field4 = CF;
  2868. roomrec[90].E.Field5 = CF;
  2869. roomrec[90].E.Field6 = CF;
  2870.  
  2871. roomrec[90].W.Field1 = CF; 
  2872. roomrec[90].W.Field2 = CF;
  2873. roomrec[90].W.Field3 = CF;
  2874. roomrec[90].W.Field4 = CF;
  2875. roomrec[90].W.Field5 = CF;
  2876. roomrec[90].W.Field6 = CF;
  2877. /**************************/  
  2878.  
  2879.  
  2880.                              /* Room : 10 */
  2881. roomrec[91].N.Field1 = CL; 
  2882. roomrec[91].N.Field2 = ML;
  2883. roomrec[91].N.Field3 = FL;
  2884. roomrec[91].N.Field4 = FR;
  2885. roomrec[91].N.Field5 = MR;
  2886. roomrec[91].N.Field6 = CR;
  2887.  
  2888. roomrec[91].S.Field1 = CL; 
  2889. roomrec[91].S.Field2 = FF;
  2890. roomrec[91].S.Field3 = FF;
  2891. roomrec[91].S.Field4 = FF;
  2892. roomrec[91].S.Field5 = MR;
  2893. roomrec[91].S.Field6 = CR;
  2894.  
  2895. roomrec[91].E.Field1 = CF; 
  2896. roomrec[91].E.Field2 = CF;
  2897. roomrec[91].E.Field3 = CF;
  2898. roomrec[91].E.Field4 = CF;
  2899. roomrec[91].E.Field5 = CF;
  2900. roomrec[91].E.Field6 = CF;
  2901.  
  2902. roomrec[91].W.Field1 = CF; 
  2903. roomrec[91].W.Field2 = CF;
  2904. roomrec[91].W.Field3 = CF;
  2905. roomrec[91].W.Field4 = CF;
  2906. roomrec[91].W.Field5 = CF;
  2907. roomrec[91].W.Field6 = CF;
  2908.  
  2909. /**************************/
  2910.  
  2911. /**************************/  
  2912.  
  2913.                              /* Room : 11 */
  2914. roomrec[92].N.Field1 = CL; 
  2915. roomrec[92].N.Field2 = ML;
  2916. roomrec[92].N.Field3 = FL;
  2917. roomrec[92].N.Field4 = FR;
  2918. roomrec[92].N.Field5 = MR;
  2919. roomrec[92].N.Field6 = CR;
  2920.  
  2921. roomrec[92].S.Field1 = CL; 
  2922. roomrec[92].S.Field2 = ML;
  2923. roomrec[92].S.Field3 = FF;
  2924. roomrec[92].S.Field4 = FF;
  2925. roomrec[92].S.Field5 = FF;
  2926. roomrec[92].S.Field6 = CR;
  2927.  
  2928. roomrec[92].E.Field1 = CF; 
  2929. roomrec[92].E.Field2 = CF;
  2930. roomrec[92].E.Field3 = CF;
  2931. roomrec[92].E.Field4 = CF;
  2932. roomrec[92].E.Field5 = CF;
  2933. roomrec[92].E.Field6 = CF;
  2934.  
  2935. roomrec[92].W.Field1 = CF; 
  2936. roomrec[92].W.Field2 = CF;
  2937. roomrec[92].W.Field3 = CF;
  2938. roomrec[92].W.Field4 = CF;
  2939. roomrec[92].W.Field5 = CF;
  2940. roomrec[92].W.Field6 = CF;
  2941.  
  2942.  
  2943. /**************************/  
  2944.  
  2945.                              /* Room : 12 */
  2946. roomrec[93].N.Field1 = CL; 
  2947. roomrec[93].N.Field2 = ML;
  2948. roomrec[93].N.Field3 = FL;
  2949. roomrec[93].N.Field4 = EMPTY;
  2950. roomrec[93].N.Field5 = EMPTY;
  2951. roomrec[93].N.Field6 = CR;
  2952.  
  2953. roomrec[93].S.Field1 = CL; 
  2954. roomrec[93].S.Field2 = ML;
  2955. roomrec[93].S.Field3 = FL;
  2956. roomrec[93].S.Field4 = FR;
  2957. roomrec[93].S.Field5 = MR;
  2958. roomrec[93].S.Field6 = CR;
  2959.  
  2960. roomrec[93].E.Field1 = CF; 
  2961. roomrec[93].E.Field2 = CF;
  2962. roomrec[93].E.Field3 = CF;
  2963. roomrec[93].E.Field4 = CF;
  2964. roomrec[93].E.Field5 = CF;
  2965. roomrec[93].E.Field6 = CF;
  2966.  
  2967. roomrec[93].W.Field1 = CF; 
  2968. roomrec[93].W.Field2 = CF;
  2969. roomrec[93].W.Field3 = CF;
  2970. roomrec[93].W.Field4 = CF;
  2971. roomrec[93].W.Field5 = CF;
  2972. roomrec[93].W.Field6 = CF;
  2973.  
  2974. /**************************/
  2975.  /**************************/  
  2976.  
  2977.                              /* Room : 13 */
  2978. roomrec[94].N.Field1 = CL; 
  2979. roomrec[94].N.Field2 = ML;
  2980. roomrec[94].N.Field3 = FL;
  2981. roomrec[94].N.Field4 = FR;
  2982. roomrec[94].N.Field5 = FF;
  2983. roomrec[94].N.Field6 = FF;
  2984.  
  2985. roomrec[94].S.Field1 = CF; 
  2986. roomrec[94].S.Field2 = CF;
  2987. roomrec[94].S.Field3 = CF;
  2988. roomrec[94].S.Field4 = CF;
  2989. roomrec[94].S.Field5 = CF;
  2990. roomrec[94].S.Field6 = CF;
  2991.  
  2992. roomrec[94].E.Field1 = EMPTY; 
  2993. roomrec[94].E.Field2 = EMPTY;
  2994. roomrec[94].E.Field3 = FF;
  2995. roomrec[94].E.Field4 = FF;
  2996. roomrec[94].E.Field5 = EMPTY;
  2997. roomrec[94].E.Field6 = CR;
  2998.  
  2999. roomrec[94].W.Field1 = CF; 
  3000. roomrec[94].W.Field2 = CF;
  3001. roomrec[94].W.Field3 = CF;
  3002. roomrec[94].W.Field4 = CF;
  3003. roomrec[94].W.Field5 = CF;
  3004. roomrec[94].W.Field6 = CF;
  3005.  
  3006. /**************************/
  3007.  
  3008. /**************************/  
  3009.  
  3010.                              /* Room : 14 */
  3011. roomrec[95].N.Field1 = EMPTY; 
  3012. roomrec[95].N.Field2 = EMPTY;
  3013. roomrec[95].N.Field3 = FF;
  3014. roomrec[95].N.Field4 = FF;
  3015. roomrec[95].N.Field5 = FF;
  3016. roomrec[95].N.Field6 = CR;
  3017.  
  3018. roomrec[95].S.Field1 = CL; 
  3019. roomrec[95].S.Field2 = FF;
  3020. roomrec[95].S.Field3 = FL;
  3021. roomrec[95].S.Field4 = FR;
  3022. roomrec[95].S.Field5 = MR;
  3023. roomrec[95].S.Field6 = MF;
  3024.  
  3025. roomrec[95].E.Field1 = CF; 
  3026. roomrec[95].E.Field2 = CF;
  3027. roomrec[95].E.Field3 = CF;
  3028. roomrec[95].E.Field4 = CF;
  3029. roomrec[95].E.Field5 = CF;
  3030. roomrec[95].E.Field6 = CF;
  3031.  
  3032. roomrec[95].W.Field1 = MF; 
  3033. roomrec[95].W.Field2 = ML;
  3034. roomrec[95].W.Field3 = FF;
  3035. roomrec[95].W.Field4 = FF;
  3036. roomrec[95].W.Field5 = FF;
  3037. roomrec[95].W.Field6 = FF;
  3038.  
  3039.  
  3040. /**************************/  
  3041. /**************************/  
  3042.  
  3043.                              /* Room : 15 */
  3044. roomrec[96].N.Field1 = CL; 
  3045. roomrec[96].N.Field2 = FF;
  3046. roomrec[96].N.Field3 = FF;
  3047. roomrec[96].N.Field4 = FF;
  3048. roomrec[96].N.Field5 = FF;
  3049. roomrec[96].N.Field6 = CR;
  3050.  
  3051. roomrec[96].S.Field1 = CL; 
  3052. roomrec[96].S.Field2 = FF;
  3053. roomrec[96].S.Field3 = FL;
  3054. roomrec[96].S.Field4 = FR;
  3055. roomrec[96].S.Field5 = FF;
  3056. roomrec[96].S.Field6 = CR;
  3057.  
  3058. roomrec[96].E.Field1 = CF; 
  3059. roomrec[96].E.Field2 = CF;
  3060. roomrec[96].E.Field3 = CF;
  3061. roomrec[96].E.Field4 = CF;
  3062. roomrec[96].E.Field5 = CF;
  3063. roomrec[96].E.Field6 = CF;
  3064.  
  3065. roomrec[96].W.Field1 = CF; 
  3066. roomrec[96].W.Field2 = CF;
  3067. roomrec[96].W.Field3 = CF;
  3068. roomrec[96].W.Field4 = CF;
  3069. roomrec[96].W.Field5 = CF;
  3070. roomrec[96].W.Field6 = CF;
  3071.  
  3072.  
  3073. /**************************/  
  3074.  
  3075.                              /* Room : 15 */
  3076. roomrec[97].N.Field1 = CL; 
  3077. roomrec[97].N.Field2 = FF;
  3078. roomrec[97].N.Field3 = FF;
  3079. roomrec[97].N.Field4 = FF;
  3080. roomrec[97].N.Field5 = FF;
  3081. roomrec[97].N.Field6 = CR;
  3082.  
  3083. roomrec[97].S.Field1 = CL; 
  3084. roomrec[97].S.Field2 = FF;
  3085. roomrec[97].S.Field3 = FL;
  3086. roomrec[97].S.Field4 = FR;
  3087. roomrec[97].S.Field5 = FF;
  3088. roomrec[97].S.Field6 = CR;
  3089.  
  3090. roomrec[97].E.Field1 = CF; 
  3091. roomrec[97].E.Field2 = CF;
  3092. roomrec[97].E.Field3 = CF;
  3093. roomrec[97].E.Field4 = CF;
  3094. roomrec[97].E.Field5 = CF;
  3095. roomrec[97].E.Field6 = CF;
  3096.  
  3097. roomrec[97].W.Field1 = CF; 
  3098. roomrec[97].W.Field2 = CF;
  3099. roomrec[97].W.Field3 = CF;
  3100. roomrec[97].W.Field4 = CF;
  3101. roomrec[97].W.Field5 = CF;
  3102. roomrec[97].W.Field6 = CF;
  3103.  
  3104. /**************************/  
  3105.  
  3106.  
  3107. /**************************/  
  3108.  
  3109.                              /* Room : 17 */
  3110. roomrec[98].N.Field1 = CL; 
  3111. roomrec[98].N.Field2 = FF;
  3112. roomrec[98].N.Field3 = FF;
  3113. roomrec[98].N.Field4 = FF;
  3114. roomrec[98].N.Field5 = MR;
  3115. roomrec[98].N.Field6 = CR;
  3116.  
  3117. roomrec[98].S.Field1 = CL; 
  3118. roomrec[98].S.Field2 = ML;
  3119. roomrec[98].S.Field3 = EMPTY;
  3120. roomrec[98].S.Field4 = FR;
  3121. roomrec[98].S.Field5 = FF;
  3122. roomrec[98].S.Field6 = CR;
  3123.  
  3124. roomrec[98].E.Field1 = CF; 
  3125. roomrec[98].E.Field2 = CF;
  3126. roomrec[98].E.Field3 = CF;
  3127. roomrec[98].E.Field4 = CF;
  3128. roomrec[98].E.Field5 = CF;
  3129. roomrec[98].E.Field6 = CF;
  3130.  
  3131. roomrec[98].W.Field1 = CF; 
  3132. roomrec[98].W.Field2 = CF;
  3133. roomrec[98].W.Field3 = CF;
  3134. roomrec[98].W.Field4 = CF;
  3135. roomrec[98].W.Field5 = CF;
  3136. roomrec[98].W.Field6 = CF;
  3137.  
  3138. /**************************/  
  3139.  
  3140.                              /* Room : 18 */
  3141. roomrec[99].N.Field1 = CL; 
  3142. roomrec[99].N.Field2 = ML;
  3143. roomrec[99].N.Field3 = FL;
  3144. roomrec[99].N.Field4 = FR;
  3145. roomrec[99].N.Field5 = MR;
  3146. roomrec[99].N.Field6 = CR;
  3147.  
  3148. roomrec[99].S.Field1 = CL; 
  3149. roomrec[99].S.Field2 = ML;
  3150. roomrec[99].S.Field3 = FF;
  3151. roomrec[99].S.Field4 = FF;
  3152. roomrec[99].S.Field5 = MR;
  3153. roomrec[99].S.Field6 = CR;
  3154.  
  3155. roomrec[99].E.Field1 = CF; 
  3156. roomrec[99].E.Field2 = CF;
  3157. roomrec[99].E.Field3 = CF;
  3158. roomrec[99].E.Field4 = CF;
  3159. roomrec[99].E.Field5 = CF;
  3160. roomrec[99].E.Field6 = CF;
  3161.  
  3162. roomrec[99].W.Field1 = CF; 
  3163. roomrec[99].W.Field2 = CF;
  3164. roomrec[99].W.Field3 = CF;
  3165. roomrec[99].W.Field4 = CF;
  3166. roomrec[99].W.Field5 = CF;
  3167. roomrec[99].W.Field6 = CF;
  3168. /**************************/  
  3169.  
  3170.                              /* Room : 19 */
  3171. roomrec[100].N.Field1 = CL; 
  3172. roomrec[100].N.Field2 = ML;
  3173. roomrec[100].N.Field3 = FL;
  3174. roomrec[100].N.Field4 = FR;
  3175. roomrec[100].N.Field5 = MR;
  3176. roomrec[100].N.Field6 = MF;
  3177.  
  3178. roomrec[100].S.Field1 = CF; 
  3179. roomrec[100].S.Field2 = CF;
  3180. roomrec[100].S.Field3 = CF;
  3181. roomrec[100].S.Field4 = CF;
  3182. roomrec[100].S.Field5 = CF;
  3183. roomrec[100].S.Field6 = CF;
  3184.  
  3185. roomrec[100].E.Field1 = MF; 
  3186. roomrec[100].E.Field2 = ML;
  3187. roomrec[100].E.Field3 = FL;
  3188. roomrec[100].E.Field4 = FR;
  3189. roomrec[100].E.Field5 = MR;
  3190. roomrec[100].E.Field6 = CR;
  3191.  
  3192. roomrec[100].W.Field1 = CF; 
  3193. roomrec[100].W.Field2 = CF;
  3194. roomrec[100].W.Field3 = CF;
  3195. roomrec[100].W.Field4 = CF;
  3196. roomrec[100].W.Field5 = CF;
  3197. roomrec[100].W.Field6 = CF;
  3198. /**************************/  
  3199.  
  3200.                              /* Room : 20 */
  3201. roomrec[101].N.Field1 = CF; 
  3202. roomrec[101].N.Field2 = CF;
  3203. roomrec[101].N.Field3 = CF;
  3204. roomrec[101].N.Field4 = CF;
  3205. roomrec[101].N.Field5 = CF;
  3206. roomrec[101].N.Field6 = CF;
  3207.  
  3208. roomrec[101].S.Field1 = CF; 
  3209. roomrec[101].S.Field2 = CF;
  3210. roomrec[101].S.Field3 = CF;
  3211. roomrec[101].S.Field4 = CF;
  3212. roomrec[101].S.Field5 = CF;
  3213. roomrec[101].S.Field6 = CF;
  3214.  
  3215. roomrec[101].E.Field1 = CL; 
  3216. roomrec[101].E.Field2 = ML;
  3217. roomrec[101].E.Field3 = FL;
  3218. roomrec[101].E.Field4 = FR;
  3219. roomrec[101].E.Field5 = MR;
  3220. roomrec[101].E.Field6 = CR;
  3221.  
  3222. roomrec[101].W.Field1 = CL; 
  3223. roomrec[101].W.Field2 = ML;
  3224. roomrec[101].W.Field3 = FF;
  3225. roomrec[101].W.Field4 = FF;
  3226. roomrec[101].W.Field5 = FF;
  3227. roomrec[101].W.Field6 = CR;
  3228. /**************************/  
  3229.  
  3230. }
  3231.